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How  fast  is  fast  enough? 

Marbles 

An  exciting  arcade-style  game 
for  the  Atari,  Commodore  64, 
Appfe  II,  Amiga,  and  IBM 
PC/PCjr  and  compatibles 

Super  Turtle  PILOT 

A  complete,  flexible  language 
for  the  64  that  includes 
powerful  graphics,  sound,  and 
disk  commands 

Chrome 

Double  hi-res  graphics 
commands  for  Applesoft 

A  BUTTON  Command 

A  new,  easy  alternative  to 
Amiga  menus 

Dozzlers 

Brilliant  graphics  on  the  IBM 
PC/PCjr  and  compatibles 

Double-Duty  DOS       >*■ 

File  compatibility  with  ProDC5s 
and  DOS  3.3 

Smooth  Out  For  Atari 

Sharp  graphics  irvmere 
seconds 

Atari  ST  Menu 

Word  War  For  The  Amiga 
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From  Origin  comes  the  long-awaited  sequel 

-  to  the  award-winning 

.  Ultima™  III 
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Quest  of  the 

A  state-of-the-art  fantasy  role- 
playing  game  of  unprecedented 
magnitude  by  Lord  British™. 


repcure  yourself  for  a  grand 
adventure:  Ultima™  IV, 
'  sixteen  times  larger  than     | 
^  ^  Ultima  III,  is  a  milestone  in 
computer  gaming— one  that  challenges 
your  physical  and  ment£il  skills  while 
testing  the  true  fabric  of  your  character.       '--^?^-  - 
Enter  Britannia,  kingdom  of  Lord  ^-r^ 

British.  Journey  through  terrain  of  infinite 
proportions,  conversing  with  characters       i 
on  hundreds  of  topics.  Unravel  the 
mysteries  of  a  superior  magic  system.  At  each  turn  beware  of  daemons,  dragons  and 
long-dead  wizards  haunting  the  most  tranquil  of  places.  Encounters  with  parties  of 
mixed  enemy  types  test  your  strategic  abilities.  Shrewd  use  of  terrain  can  lead  to 
victory  against  seemingly  impossible  odds. 

Survive  this  multi-quest  fantasy,  then  begin  the  final  conflict,  your  quest  of  the 
Avatar.  The  ultimate  challenge— the  self— awaits.... 
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ULTIMA™  III  sends  you  on 
an  incredible  fantasy  role- 
playing  journey  through 
monster-plagued  Sosaria  in 
search  of  the  elusive 
Exodus. 


MOEBIUS™  fakes  you 
through  (he  elemental 
planes  of  a  colorful  Orien- 
tal world  of  fantasy  and 
adventure  in  search  of  the 
Orb  of  Celestial  Harmony. 
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AUTODUEL™  is  a  futuristic, 
fast-paced  strategy  role- 
playing  game  where  the 
right  of  way  goes  to  the 
biggest  guns. 


OGRE'"  is  a  strategy  game 
fought  on  the  nuclear  bat- 
tlefield of  tomorrow  as  an 
inhuman  juggernaut  Cyber- 
tank  battles  conventional 
forces. 


Ultima  and  Lord  British  are  trademarks  of  Ricliard  Garriott/Moebius  is  a  trademark  of  Greg  Malone/AuloDuel  and  Ogre  are  trademarks 

of  Sieve  Jackson/ Apple  is  a  trademark  of  Apple  Computer  lnc/F>revious  Ultimas  are  not  needed  to  enjoy  Uitinia  IV        Authors  wanted.  Call  ns  toila^ 


PRESENTING  TECHNOIOGY  THAT  LETS  YOU 
PROGRAM  YOUR  OWN  DESTINY. 


Electronics  and  computer  equipment  can  be 
state-of-the-art  today.  And  ready  for  the  garbage 
can  tomorrow. 

Demand  for  technology  is  changing  that  fast. 

And  the  people  who  can  stay  on  top  of  it  can 
write  their  own  ticket  in  this  world. 

That's  the  beauty  of  the  Air  Force. 

We  can  put  you  to  work  with  technology  that 
you  may  not  read  about  in  magazines  for  years. 

We  can  teach  you  how  to  make  sense  of  the 


most  intimidating  circuitry  in  existence  anywhere. 

If  you  attend  college,  we'll  pick  up  75%  of 
your  tuition.  You  can  even  earn  an  associate  degree 
from  the  Community  College  of  the  Air  Force. 

What  does  all  that  mean? 

It  means  there's  no  telling  where  technology 
is  going  in  the  future. 

But  with  Air  Force  training,  you've  always  got 
a  future  to  look  forward  to.  For  more  information, 
call  an  Air  Force  recruiter  at  1-800-423-USAE 


•  Suggested  retail  with  TTL  manochrome  moralw,  $1,295  mth  RGB  color 


Finally,  a  complete, 

serious  computing  system 

for  under  $1,000. 


□  Introducing  HeadStart— a  top-quality 
IBM-XT  compatible  computer  with  all  the 
important  bells  and  whistles  standard  plus 
a  $500  software  paci^age  plus  $1,000  in 
coupons  good  for  computer  goodies  plus  a 
full  year's  limited  warranty  plus  a  toll-free 
user  hotline— all  for  only  $995' 
D  What's  more,  only  HeadStart  has  the  rev- 
olutionary HeadStart  Operating  Environment, 
designed  to  make  even  the  most  advanced 
user  more  productive  instantly 
D  For  the  HeadStart  dealer  nearest  you  call 
(800)  227-3900,  in  CA  (800)  632-2122. 

HeadStart 


Vfendex  Pacific  Inc.,  40  Cutter  Mill  Road,  Suite  438,  Great  Neck,  NY  11021  (516)  482-4255 


■      -  'Mart  Operating 
.  ■  Aiiorifuent  makes  both 
v:ct!  and-e.<perienced  user 

■;■  -••.-■r:_-  v'-;  -i:ciive 

.   'uity  iBM-A  I  compatitJe 
■■  :ii  dual-speed  8  MHi  8088-2 
.■ocessor,5]2KRAM 
(••fDafids  to  768K) 

3.  3-m-oneCGA/Hercules/ 
monochrome  graphics 

4.  Choice  of  high-quality 
RGB  color  or  monochrome 
monitor  with  till/iwivel  base 

5.  Parallel,  serial,  mouse, 
light-pen  and  tv/o game  ports 

6.  Oock/catendar 
with  battery  backup 

7.  Dual  5'A"  drives,  /slots, 
hefty  135W  power  supply 

8.  Contemporary  smalt-footprint 
design  fits  anywhere 

9.  Advanced  AT-style 
sculptured  84-key  keyboard 

10.  MS-DOS  3.2. 
GW  BASIC  included 

11.  $500  software  package: 
award-winnmg  interactive 
training,  word  processing, 
diabase  spreadsheet, 
plus  pop-up  programs 

Full  year  limited 
warranty  on  parts 
and  labor,  toll-free 
user  hotline 

Extended  warranty, 
on-site  installation  and 
service  available 
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The  following  are  trademarks  of  companies  indicated: 

HeadStart.  V6ndei<  Paafc  Inc ,  IBM,  XT  AT  Inteniaiional  Business  HacfwiesCoo) 

MSOOS.  GW  BASIC  Microsoft,  Inc.  Hercules,  Hercules  Computer  Technology.' 
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CAUFORMA  games: 
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^^It  atn't  beach  blanket  bingo. 
"***"         These  are  radi- 
cal games.  Games 
that  take  the 
honorable 
tradition  of 
Summer 

Games"  I  and 

II,  Winter  Games7  and  World 
Games^  wax  it  down  and  load 
it  on  the  roof. 

Try  shredding  the  face  of  a 
totally  tubular  wave.  Join  the 
airforce  in  a  BMX  bike  race. 
Screech  around  on  skates 
and  then  rocket  off  the 
skateboard  ramp. 

YoxlW  be  playing 
for  sponsors  like 
Ocean  Pacific,  NHS 
Santa  Cniz,  CASIO,  Costa 


iMunch  a  fciv  kct  ofj-liu-iwiiith  your 
■kalcboard tuckaUii^ih.  Aiul  nhilrymnx 


up  ihcrc,  dance  fur  ihr  cwttd. 


Slalfim  the  boarduulk  <ih 
on  rolhr a^ktiU 


SEE 


Del  Mar,  Kawasaki,  and 
Spinjammer.Fer  trophies 
and  an  overall  championship 

So  get  air.  Go  crazy.    California  games  by 
Welcome  to  the  state 
of  California. 

GAME  BOX  FOR  DETAILS  ON  INSTANT  WINNER  CONTEST. 


CALIFOKISIA  UAJVULA  H 
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Editor's  Notes 


MIT  researcher  Eric  Drexler  expects  the 
Breakthrough  in  the  next  20  years,  give 
or  take  a  decade  or  two.  He  says  ad- 
vances in  molecular  engineering  and 
artificial  intelligence  will  result  in  a 
Genie  Machine.  "What  you  ask  for,  it 
will  produce." 

Eons  of  evolution  and  mil- 
lennia of  history  have  prepared 
this  challenge  and  quietly  pre- 
sented it  to  our  generation.  The 
coming  years  will  bring  the  great- 
est turning  point  in  the  history  of 
life  on  Earth.  To  guide  life  and 
civilization  through  this  transi- 
tion is  the  great  task  of  our  time. 

If  we  succeed  (and  if  you 
survive)  then  you  may  be  hon- 
ored with  endless  questions  from 
pesky  great-grandchildren: 
"What  was  it  like  when  you  were 
a  kid,  back  before  the  Break- 
through?" and  "What  was  it  like 
growing  old?"  and  "What  did  you 
think  when  you  heard  the  break- 
through was  coming?" 

Drexler  is  not — in  spite  of  the  as- 
tonishing assertions  in  his  book  Engines 
of  Creation — a  mystic  on  the  fringes  of 
modem  science.  His  ideas  have  the 
backing  of  noted  scientists,  including 
Marvin  Minsky,  widely  acclaimed  for 
his  work  in  artificial  intelligence  at  MIT. 

The  breakthrough  described  in 
Drexler's  book  is  nanotechnologi/:  the 
ability  to  rearrange  atoms,  creating 
molecules  at  will.  Little  machines  the 
size  of  enzymes  will  work  by  the  mil- 
lions under  the  direction  of  computers 
the  size  of  a  pinpoint.  In  less  than  a  day, 
using  ordinary  air  and  dirt,  they  could 
build  a  seamless  rocket  engine  by  re- 
arranging atoms  of  mud.  This  engine 
would  be  made  of  the  most  ideal  mate- 
rials: carbon  turned  into  diamond,  alu- 
minum oxide  rearranged  into  sapphire. 

This  engine  would  be  90  percent 
lighter  than  contemporary  rocket  en- 
gines, able  to  repair  itself  during  flight, 
able  to  rearrange  its  shape  (different 
shapes  are  optimal  at  various  points 
along  a  trajectory),  lighter  than  wood, 
stronger  than  steel.  And  best  of  all,  the 
orUy  cost  would  be  for  the  dirt  and  water. 

Where  do  we  get  these  minute  ro- 


bots and  computers?  They  are,  accord- 
ing to  Drexler,  the  inevitable  result  of 
current  progress  in  genetic  engineering 
and  artificial  intelligence.  This  progress, 
he  argues  convincingly,  does  not  de- 
pend on  future  scientific  revolutions  or 
undiscovered  technologies.  Instead,  the 
development  of  this  technology  is  pro- 
ceeding rapidly  and  the  few  remaining 
barriers  are  more  related  to  engineering 
than  to  scientific  theory.  You've  doubt- 
less heard  that  last  year  some  scientists 
managed  to  cross  tobacco  with  fireflies, 
creating,  for  some  reason,  plants  that 
glowed  in  the  dark. 

It  used  to  be  that  the  best  definition 
of  life  was  "something  that  can  repro- 
duce itself."  These  molecular  robots 
(Drexler  calls  them  replicators)  will  de- 
stroy that  definition.  They  can  make 
anything,  including  copies  of  them- 
selves. Once  we  create  the  first  replica- 
tor, it  will  build  its  own  offspring  in 
about  15  minutes  (using  air  or  mud). 
Then  the  two  of  them  will  build  two 
more  children  in  the  next  15  minutes. 
After  about  ten  hours  of  this,  there  will 
be  68  billion  of  them  working  on  their 
next  generation.  Obviously  this  sort  of 
thing  could  get  out  of  hand.  After  a 
couple  of  days  they  would  outweigh 
the  total  mass  of  the  solar  system. 

There  is  precedent  for  building 
huge  things  from  molecular  accretion: 
biological  reproduction.  This  is,  after 
all,  how  a  whale  sperm  cell  builds  into  a 
sperm  whale.  The  biological  building 
process  is  just  slower  by  orders  of  mag- 
nitude than  replicator  building,  in  the 
same  way  that  human  thinking  is  enor- 
mously slower  than  computer  thinking. 
Drexler  suggests  inserting  a  loop 
counter  which  would  shut  replicators  off 
after  a  certain  number  of  generations.  In 
fact,  he  spends  the  second  half  of  his 
book  exploring  strategies  to  contain  the 
unimaginable  power  of  nanotechology. 
There  is  indeed  a  dark  side  to  this 
power.  When  anything  can  be  built  for 
free,  when  artificial  thinking  is  far 
deeper  and  faster  than  the  human  mind 
can  fathom,  when  invisible  machines 
can  transform  a  solar  system  in  days — 
we'd  better  be  on  the  lookout.  The  first 
replicators  could  doom  human  muscle 
and  mind  to  irrelevance.  Important  new 
techologies  have  always  replaced  a  pre- 


viously human  activity.  Electric  light 
didn't  eliminate  candlemaking,  but 
candlemaking  did  become  relatively 
meaningless.  Replicators — able  to  do 
anything  within  the  limits  set  by  the 
laws  of  physics — could  supplant  all  hu- 
man endeavor. 

Engines  of  Creation  makes  a  com- 
pelling case,  saying  replicators  "prom- 
ise to  bring  changes  as  profound  as  the 
industrial  revolution,  antibiotics,  and 
nuclear  weapons  all  rolled  up  in  one 
massive  breakthrough." 


/^I^*.^  Z^.*.^ 


^L^:? 


Richard  Mansfield 
Editorial  Director 


COMPUTE!  Publications,  Inc.,  is 
seeking  to  fill  the  following  in- 
house  editorial  positions: 

Assistant  Technical  Editor — 

Requires  extensive  experience 
with  microcomputers,  knowl- 
edge of  machine  language.  Expe- 
rience or  training  in  editing  or 
writing.  Undergraduate  degree 
preferred,  experience  in  lieu  of 
degree  considered. 

Assistant  Features  Editor — Re- 
quires undergraduate  degree  in 
journalism,  English,  or  related 
field.  Three  years  experience  in 
print  journalism,  writing,  editing, 
or  combination.  Background  or 
experience  in  computer  technol- 
ogy desirable.  Able  to  communi- 
cate effectively. 

Microcomputer  Programmer- 
Requires  proficiency  on  one  or 
more  of  the  following  computers: 
IBM-PC,  Apple,  Commodore, 
Atari.  College  degree  preferable 
with  coursework  in  BASIC.  Profi- 
ciency in  BASIC  programming. 
Extensive  machine  language 
experience  a  plus. 
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Superstar  Ice  Hockey™  and 
Superstar  Soccer™  by  Sport- 
Time'"  may  be  the  best  way  of 
all  to  play  sports  because  they 
bring  out  all  your  best  sides. 

You  can  be  the  star  player, 
winning  coach  or  even  the 
wheeling  and  dealing  owner/ 
general  manager  in  these 
amazing  home  games  from 
Mindscape.  On  the  ice,  you  can 
play  center  or  goalie.  On  the 
bench,  you  can  build  or  change 
the  game  plan.  In  the  front 


Watch  Uie  animated  moves 
of  all  the  players  all  the  time. 


Complete  stals  keep  you 
posted  on  all  the  action. 


office  you  can  trade,  draft  or 
bring  up  new  stars  from  your 
minor  league  club. 

Brilliant  graphics  make 
both  simulations  so  real  you'll 
expect  to  be  interrupted  by 
commercials.  And  a  variety  of 
play  levels  and  time  frames 
provide  endless  combinations 
for  victory  or  defeat  in 
your  club's  charge  for  the 
SportTime  Cup. 

All  in  all,  these  are  the 
best  sports  games  for  all  of  you. 


Mindscape  sports  lead  the  standing. 


Vea  lajr  retater  of  call  1-800-221-9864  (ir>  UItos  l-eOa942-7315)  ItxVSA  w  MadeCard  otdera 
«5PlfSS^  &JB'-^J!'S1!',  '^"'  "^"ifs'  1*1  expiraion  dale,  cfleck  of  money  order  for  S34-95 
(1^/128)  Of  S39^  (BM  FC*)  lor  Bach  game  plus  S3.0Q  (or  harding  10  Mindscape,  ht  BO.  BCK 
NoflhbrooK  L  60065.  Alkw3-S  weeks  (ocdeJwery.  Lawyers  like  ths  part:  0 1987  Mindscaoe  Ini 
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CopifljgN  e  1 967  in  coniunoion  wrih  kilematonal  Cofnputer  Group.  Ckxranodore  and  IBM  are  Irade- 
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Now  at  Your  Local 
Waldenbooks  Store! 


COMPUTEI's  new  Quick  and  Easy  series 

puts  the  cx)mputer  information  you  need  riglit  at  your  fingertips. 

Concise,  reasonably  priced,  hands-on  user  guides  to  the  most  popular  and  powerful  computer 

applications.  You'll  find  all  the  easy-to-follow  information  you  need. 

Look  for  these  and  other  COMPUTE!  books  at  your  local  Waldenbooks  Store. 
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COMPUTEI'S  Quick  and  Easy  Guide  to  AppleWorks 

Tow  and  Ellen  Doughsr 
ISBN  0-87455-109-9         $70.95 
AppleWorks,  the  unchallenged  leader  in  personal  productivity  software  for  the  Apple 
II  series,  is  an  integrated  package  combining  a  word  processor,  datatjase,  and 
spreadsheet.  Precisely  because  AppleWorks  can  do  so  much,  it  can  prove  com- 
plicated even  for  the  regular  user.  COMPUTEI's  Quick  and  Easy  Guide  to 
AppleVyor1<s  solves  that  problem,  putting  all  the  information  you're  lilcely  to  need  on  a 

day-to-day  basis  in  an  easy-to-use  format. 

Clear,  complete  guidance  will  benefrt  first-time  and  experienced  users  alil<e. 

You'll  see  how  to  get  started  with  AppleWorks,  and  exactly  how  to  get  ttie  most  out 

of  each  of  the  three  major  applications.  You'll  quicitly  master  the  intricacies  of  this 

powerful  program  using  the  special  Command  Summary,  Keyboard  Template, 

and  Quidt-Refarence  Chart. 


COMPUTEI's  Quick  and  Easy  Guide  to  Learning  Lotus  1-2-3 

Doug  Wolf 

ISBN  0-87455-106^        $12.95 
Here's  the  perfect  resource  for  the  novice  user  of        '' 
1-2-3.  The  book  assumes  no  previous  computer  expe- 
rience whatsoever.  In  fact,  COMPUTEI's  Quick  and 
Easy  Guide  to  Learning  Lotus  1-2-3  covers  everything 
from  building  a  spreadsheet  model,  setting  up  a  database,  and  using  7-2-3 
for  word  processing,  to  creating  graphs  and  powerful  macros.  Also  included 
are  discussions  on  starting  Lotus  1-2-3  and  selecting  add-on  software  to  enhance 
the  program. 


COMPUTEI's  Quick  and  Easy  Guide  to  Using  MS-DOS 

Bonnie  Dermen  and  Strawberry  Software 

0-87455-105-6        $12.95 

An  easy-to-follow  reference  guide  that  every  user  of  this  powerful  and  flexible 

operating  system  will  welcome.  A  must  for  new  and  experienced  owners  of  IBM  PCs 

or  compatible  computers. 
No  longer  will  you  need  to  wade  through  hundreds  of  confusing  pages  in  the 
manual  to  find  just  the  right  IX)S  command.  COMPUTEI's  Quick  and  Easy  Guide  to 
Using  MS-DOS  makes  the  information  clear  and  Instantly  accessible.  With  two  in- 
dices and  an  expanded  table  of  contents,  simply  look  up  the  task  you  want  to 
accomplish  or  the  DOS  command  you  need— and  you'll  find  exactly  what  you're 

looking  for. 
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Readers'  Feedback 


The  Editors  and  Reoders  of  COMPUTE! 


If  you  have  any  questions,  comments,  or 
suggestions  you  would  like  to  see  ad- 
dressed in  this  column,  write  to  "Readers' 
Feedback,"  COMPUTE!,  P.O.  Box  5406, 
Greensboro,  NC  27403.  Due  to  the  volume 
of  mail  we  receive,  we  regret  that  we 
cannot  provide  personal  answers  to  tech- 
nical questions. 


Forward  Two  Steps,  Back  One 

Rumors  abound  that  the  Amiga  is  or 
can  be  compatible  with  the  Commo- 
dore 64.  If  it  were,  I  would  buy  one 
without  hestitation. 

William  F.  DeBerg 

I  maintain  a  very  firm  belief  that  Atari 

should  market  an  Atari  8-bit  emulator 
for  the  ST. 

Damon  Milhem 

Can  I  expand  my  V!C  to  run  64,  128, 
Amiga,  or  Atari  ST  programs? 

Jeffrey  M.  Powers 

Judging  by  the  letters  we  receive,  and  by 
the  questions  and  comments  in  the  user 
group  newsletters  that  we  read,  there  is  a 
great  deal  of  interest  in  emulation— mak- 
ing one  computer  run  programs  written 
for  another. 

Emulation  is  a  complex  subject,  so 
let's  begin  with  a  simple  question  that  was 
popular  a  few  years  ago:-  Why  can't  my 
64  run  VIC  programs?  (Some  people 
asked  the  opposite  question:  Why  can't 
my  VIC  run  64  programs?)  They  contin- 
ue by  saying  that  the  two  computers  look 
similar,  use  the  same  peripherals,  and 
were  made  by  the  same  company. 

Although  there  are  many  differences 
between  the  two  computers,  the  major 
difference  lies  deep  within  the  computers 
themselves:  They  have  different  display 
hardware.  The  VIC  used  a  video  chip 
called  the  VIC;  the  64  used  a  chip  called 
the  VIC-U.  For  a  program  to  work  on  two 
computers,  it  must  "see"  the  same  hard- 
ware registers  in  the  same  memory 
locations. 

With  the  popularity  of  the  Amiga  and 
the  Atari  ST,  the  question  is  coming  up 
again:  Why  can't  my  new  computer  run 
my  old  programs?  And,  again,  the  alter- 
nate question:  What  can  1  add  to  my  old 
computer  to  gain  the  benefits  of  the 
new? 


Adding  components  to  your  old  com- 
puter to  gain  the  speed  and  graphics  capa- 
bilities of  the  new  computers  is  simply  not 
feasible.  To  add  the  features  of  the  Amiga 
to  your  64,  for  example,  you  would  have  to 
replace  the  microprocessor,  keyboard,  RGB 
output,  and  sound  and  graphics  chips.  In- 
deed, a  64  has  almost  nothing  that  an 
Amiga  could  use.  In  essence,  you  would 
have  to  add  a  whole  Amiga  to  your  64. 

Others  want  their  old  software  to  run 
on  their  new  computer.  This  approach  is 
only  slightly  more  promising.  Program- 
mers are  working  on  an  Atari  8-bit  emula- 
tor for  the  ST  and  a  Commodore  64 
emulator  for  the  Amiga.  Unfortunately, 
this  approach  is  bound  to  lead  to  lacklus- 
ter results.  The  16-bit  68000  microproces- 
sor used  in  the  ST  and  Amiga  is  simply  not 
fast  enough  to  emulate  eight-bit  comput- 
ers at  full  speed.  Although  the  6502  is 
reasonably  easy  to  emulate,  duplicating 
the  hardware  of  the  the  still-impressive 
64  and  Atari  eight-bit  computers  would  be 
a  monumental  task.  The  emulators  we've 
seen  achieve  approximately  20-30  per- 
cent of  the  speed  of  the  original  computer. 
Even  if  you  had  perfect  emulation,  you 
would  still  need  to  transfer  your  programs 
across  incompatible  disk  formats,  or  from 
program  cartridges. 

The  best  solution  to  the  problem  is 
this:  If  you  want  to  run  programs  written 
for  a  specific  computer,  or  if  you  want  to 
write  programs  to  take  advantage  of  the 
power  of  a  certain  computer,  buy  that 
computer.  Any  other  option  will  lead  to 
frustration. 

Variable  Operators? 

When  I  type  in  and  execute  this  line: 

10  X  =  2  •  6 

the  variable  X  contains  a  value  of  12. 
But  when  I  type  in  these  lines: 

10  OP$  =  "»" 
20  X  =  2  OPS  6 

I  get  a  syntax  error.  How  can  I  make  it 
so  that  I  can  change  the  operators  in  my 
expressions? 

Scott  K.  Stephen 

Line  10  of  your  second  example,  OPS  =  "*", 
is  perfectly  legal.  Any  character  can  be 
assigned  to  a  string  variable.  Line  20  is  the 
problem.  BASIC  is  familiar  ivith  operators 


called  ;  /,  +,  -,  and  others,  but  it 
doesn't  know  of  one  called  OPS. 

BASIC  has  a  set  of  rules  that  deter- 
mines whether  an  expression  is  allowed. 
Although  a  BASIC-like  language  could  be 
devised  to  allow  your  statement  in  line  20, 
BASIC  does  not.  The  numbers  2  and  6  in 
your  example  are  numeric  operands.  They 
can  be  replaced  by  variables.  The  asterisk 
(used  for  multiplication  in  BASIC  and 
most  other  computer  languages)  is  a  nu- 
meric operator,  and  BASIC  does  not  allow 
you  to  replace  operators  with  variables. 

One  way  to  change  the  operators  in 
expressioris  is  to  use  the  ON-GOSUB 
command.  Here's  an  example: 

10  INPUT  B,C,OP 

20  ON  OP  GOSUB  100,200,300,400 

30  PRINT  A 

40  END 

100  A  =  B-I-C;RETURN 

200  A  =  B-C;RETURN 

300  A  =  B*C:RETURN 

400  A  =  B/C;RETURN 

When  the  program  asks  for  input, 
respond  like  this: 

4,5,1 

The  first  operand  is  4;  5  is  the  second 
operand;  and  1  tells  the  program  to  use 
operator  1  (addition).  Operator  2  is  sub- 
traction; operator  3  is  multiplication;  op- 
erator 4  is  division. 


Whafs  A  Blit? 

I've  heard  people  talk  about  a  "blitter" 
in  the  Amiga,  just  what  is  a  blitter  and 
why  is  it  important? 

Jeff  Murphy 

The  ivord  blit  is  short  for  bit-block  image 
transfer,  so  a  blitter  is  something  which 
transfers  bit-block  images.  All  the  images 
that  are  displayed  are  your  screen  are 
represented  internally  as  rectangular 
groups  of  bits.  The  blitter's  job  is  to  move 
the  collection  of  bits  that  make  up  a 
graphics  image  from  one  part  of  memory 
to  another  at  high  speed. 

Most  computers  rely  on  the  micro- 
processor to  perform  these  transfers.  Un- 
fortunately, this  slows  down  the  computer 
to  a  great  degree  any  time  an  image  needs 
to  be  moved.  Since  the  Amiga's  blitter 
operates  independently  of  its  68000  pro- 
cessor, smooth  animation  is  possible. 

If  your  favorite  language   is   C, 
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^Hir  Animation  So  Unique  — 
You  May  Wonder  Where  Fantasy  Ends 

and  Reality  Begins. 
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SHADOW  WARRIOR  OF  DEATH"' 


You  become  the  "Master  Ninja"  on  his 
quest  to  recover  the  Magical  Sword 
in  the  Mysterious  Emperor's  Castle. 


"""?^SP 


Actual  size  of  graphics— lai^e, 
smoothly  animated  ZVi"  characters. 

.Welcome  to  the  adventure  of  a  lifetime.  Assume  tfie  identity  of  a 
•proud  ninja  warrior  and  ready  yourself  to  enter  the  castle  of  (he 
evil  Japanese  Warload.  Sanjo.  Your  quest  is  to  regain  a  precious 
magical  sword  that  Sanjo  has  stolen  from  your  ninJa  sect.  Through 
the  caslie  lurk  powerful  nInja  warriors,  Samurai  guards,  evil  mys- 
tic priests,  and  deadly  tigers.  You 
'■ci^'-'--'^— — ^-^  must  work  your  way  through  the 
'  many  chambers  of  Sanjo's  castle, 
fight  and  kill  his  ninjas,  battle  his 
I,,  black  magic  curses,  overcome  his 
,y  traps  and  obstacles  and  recapture 
'  the  magic  sword.  No  ninja  has  ever 
J  survived .  Are  you  the  one  who  can 
f_  finally  battle  the  dark  power  and 
■,  bring  truth  and  goodness  back  to 

the  land?  Are  you  the  one  who  has 
no  fear?  Are  you  the  one  that  will 
r  be  called.  .  ."MASTER  NINJA"? 

Paragon's  "MASTER  NINJA"  is  the 
most  realistic  martial  arts  adventure 
game  available  today. 


f^&^'^ 


Developed  exclusively  for  the  IBM  PC/ 
PCXT/  PCAT  and  IBM  compatibles. 


IBM  PC.  PCXT  and  PCAT  are  registered  trademarks  of  International  Business  Machines,  Inc 
Master  Ninja  Shaciow  Warrior  of  Death  is  a  trademark  ol  Paragon  Software  Corporation. 


Game  features  include!: 

•  20  ReaMo-L<(e  Martial  Arts  Moves  '' 

'  Obstacles  Including  Hidden  Ninja's,  Evil  Curses  of 
Black  Magic,  Hidden  Traps,  and  Even  Deadly  Tigers 
Over  25  Combat  Screens  growing  more  and  more 
difficult 

'  Historic  Ninja  Weapons  including  Knives,  Blinding 
Powder,  Throwing  Stars,  Blow  Dart  Guns,  and  Bow 
and  Arrows 

-  A  Historic  Story  That  Unfolds  Like  an  Actual  Ninja 
Movie  with  Detail  so  Great  That  Even  the  Constel- 
lations In  the  Sky  are  Accurate 

'  Realistic  Sound 

For  the  distributor, 
nearest  you,  call 

Master  Ninja  "Hotline'' 

412-838-1166 


or  write:      I 

Paragon  Software,  Inc 
Plymouth  Center 
521  Plymouth  Street 
Greensburg,  Pennsylvania  15601 


PARAGON 
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^V'  COMPUTE!  BOOKS 


FOR  YOUR  APPLE  II  AND  MACINTOSH 

Look  to  COMPUTE!  Books  for  the  best,  most  up-to-date  information  for  your  Apple  II  and  Macintosti 

computers.  You'll  find  clear  guides  to  many  commercia!  programs,  tutorials  to  help  you  design  your  own 

programs,  ideas  for  setting  up  a  desktop  publishing  system,  and  powerful  applicotions  software. 


COMPUTEl's  Quick  and  Easy  Guide  to 
AppleWorks^ 

Tom  and  Ellen  Dougher 

ISBN  0-87455-109-9  SI  0.96 

The  unchallenged  leader  in  personal  productiv- 
ity software  for  the  Apple  II  series,  Appieworks  is 
an  integrated  package  combhlng  a  word 
processor,  database,  and  spreadsheet.  Pre- 
cisely because  AppleWorks  can  do  so  much,  it 
can  prove  complicated  even  for  o  regular  usor. 
COMPUTEl's  Quick  and  Easy  Guide  to 
AppleWorks  solves  that  problem,  giving  you  in- 
stant access  to  all  the  information  you're  likely 
to  need  on  a  day-to-doy  basis. 

Clear,  complete  guidance  will  benefit  first- 
time  ond  experienced  users  Qlil<e.  You'll  see 
how  to  get  started  with  Apple\Mirks,  and  ex- 
actly how  to  get  the  most  out  of  each  of  the 
three  major  applications.  You'll  quickly  master 
the  intricacies  of  this  powerful  program  using 
the  special  Command  Summary,  Keyboard 
Templote.  and  Quick-Reference  Chort. 


MAC 
BITS 
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for  ftie  BASC  Ftog/arr- 
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Making  Dollars  and  Cents  with  Dollars 
arrd  Sertse'" 

Gia  Rozetis  and  James  Bortimo 
ISBN  0.87466-101-3  Si  8.95 

Take  charge  of  your  money  with  this  guide  to 
fvlonogram's  Dollars  and  Sense,  the  bestselling 
personal  and  business  financiol-management 
program  for  the  IBM  PC  ond  the  Apple  fvlcsc- 
intosh.  Making  Dollars  and  Cents  with  Dollars 
and  Sense  takes  you  past  the  manual  to  fully 
exploit  this  efficient,  versatile  software,  Graph 
income  and  expense,  analyze  cash  flow,  and 
see  your  reol  financial  picture  so  you  can  make 
more  Informed  decisions. 


COMPUTERS  Quick  and  Easy  Guide  to 
Desktop  Publishing 

Dan  McNeill 

ISBN  0-87465-1 1 2-9  SI  0.95 

Desktop  publishing  is  one  of  the  fostest  growing 
personal  computer  applications,  making  room 
for  itself  in  businesses  large  and  small.  With  the 
right  computer,  software,  and  printer,  you  can 
turn  out  documents,  flyers,  brochures,  and 
more— all  in  the  highest  quality  available  out- 
side of  a  professional  print  shop.  This  easy-to-use 
reference  guide  explains  the  ins  and  outs  ot 
desktop  publishing,  shows  what  you  can  do  with 
fhe  variety  of  available  software,  and  even 
helps  you  select  your  system.  If  you're  tired  of 
wading  ttifough  long  and  technical  monuols, 
this  guide  and  tutorial  can  get  you  started  to- 
day with  desktop  publishing. 


MacBlts:  Utiiltles  and  Routines  tor  the 
BASIC  Programmer 

Sharon  Zardetto  Aker 

ISBN  0-87455-075.O  S18.95 

Book/disk  combination 

ISBN  0-87455-076-9  S29.95 

A  collection  of  valuable  utilities  ond  routines  for 
fhe  Macintosh  with  Microsoft  BASIC.  Utilities  cre- 
ate windows,  menus,  and  much  more.  Over  60 
routines  for  functions  such  as  refreshing  the 
screen,  sconning  fhe  keyboard,  and  keeping 
time.  Information  included  on  using  the  new  li- 
braries to  enhance  BASIC,  A  disk  is  available 
wtiicti  Includes  all  the  programs  and  most  of  the 
routines  In  the  book,  $15.<?5  (750BOSK). 


COMPlfTEJ's 

QUICK 
&EASYI 

GUIDE  TO 

DESKTOi^ 
PUBLISHING 


Ttie  Complete  Apple 

Edited 

ISBN  0-87455-084-X       Book/disk  only         SI  8.95 
A  book/disk  combination  with  a  series  of  power- 
ful applicotions  on  disk.  The  book  has  complete, 
easy-to-follow  documentation  for  each  of  the 
oppllcofions.  Featured  ore  SpeedScript  and 
SpeedCalc,  COMPUTEl's  professional-quality 
word  processing  and  spreadsheet  programs.  All 
the  applications  are  on  disk  ready  to  load  and 
use  on  any  Apple  II  computer. 

COMPUTE!  Books  are  at  your  \<xat  computet  store  Of 
bookstote.  or  you  can  oider  directly  by  colling  fqll  tree 
1-800-346^1767  (in  NV  21  2-667-8525).  Wnle  COMPUTE! 
Books.  Customet  Service,  P.O.  Box  5038.  F.D.f?.  Station, 
New  York.  NV  10150. 

COMPUTE!  books  are  available  outside  the  United  States 
from  subsidiaries  ol  fi/lcGraw-Hill  International  Book 
Compony. 

COMPUTE!'  Publicatlonsjnc® 

Or»  c*  lt»  *BC  PuOWw^  COTpor.*! 


Please  include  S2.00  shipping  ond  hondHr>g  per  book  for  US.  and  surface  mo3,  $5.00  for  airmol.  NC  resident?  odd  5  perceni  soies  toji .  ond  W  residents  add  8,25  percent  soles 
tax  Pieose  ailow  d-6  weeks  for  delivery. 


Modiila-2,  or  machine  language,  you  can 
access  the  Miner  directly,  creating  blazing 
animation.  If  you  program  in  Amiga 
Basic,  you  can  still  use  the  blitter.  Amiga 
Basic  has  OBJECT  commands  which  con- 
trol bobs  (blitter  objects). 

Right  now,  the  Amiga  is  the  only 
personal  computer  that  has  a  blitter,  but 
during  the  past  year  Atari  has  been  show- 
ing one  for  its  ST  line  of  computers.  As  of 
this  writing  (early  July),  it  is  rumored  that 
production  problems  may  keep  the  blitter 
from  being  shipped  in  the  new  Mega  ST 
line  of  computers.  Presumably,  the  blitter 
will  be  made  available  as  an  upgrade  to 
both  the  Mega  series  and  the  520  and 
1040STS.  The  older  machines  will  also 
need  new  ROM  chips  to  support  the 
blitter. 


Changing  Chips 

I  enjoyed  reading  about  the  Winter 
Consumer  Electronics  Show  (April  '87 
COMPUTE!),  I  was  especially  interested 
in  the  Mega  ST  line  from  Atari.  By  using 
1  megabit  chips,  these  computers  pro- 
vide more  memory  with  less  hardware, 
and  they  run  cooler.  Are  chips  like  this 
available  for  the  Commodore  128?  It 
would  be  nice  to  be  able  to  replace  the 
chips  in  the  128  to  give  it  greater  mem- 
ory capacity. 

William  Jones 

The  128  is  not  designed  to  be  expanded 
with  256K  or  1  inegabit  RAM  memory 
chips.  The  computer's  memory  manage- 
ment circuitry  is  designed  specifically  for 
the  64K  chips  currently  installed.  Fur- 
thermore, these  chips  are  soldered  in 
place,  so  you  would  have  a  difficult  time 
removing  them  without  damaging  the  cir- 
cuit board.  However,  you  can  expand  the 
memory  of  the  128— after  a  fashion— with 
the  Commodore  1700  or  1750  expansion 
modules.  These  do  not  directly  increase 
the  amount  of  memory  available  to  the 
processor,  but  the  128  provides  routines 
so  you  can  easily  copy  information  to  and 
from  the  modules. 

Some  computers  do  allow  memory 
chips  to  be  upgraded.  The  Macintosh  SE 
from  Apple,  for  instance,  comes  with  256K 
chips  and  is  designed  to  accommodate  1 
meg  chips.  This  will  increase  the  available 
memory  of  a  Macintosh  SE  from  1  mega- 
byte to  4  megabytes. 

Another  Drive 

My  Atari  130XE's  owner's  manual  says 
that  I  can  use  up  to  four  disk  drives  with 
my  computer,  but  when  I  try  to  use 
more  than  two,  1  get  an  ERROR  160 
message.  Can  I  use  four  drives  or  not? 
Lawrence  Everett  Van  Buskirk 

Since  most  people  use  one  or  two  drives 
with  their  computer,  Atari  DOS  is  set  up 
to  use  two.  A  memory  location  keeps  track 


of  which  drives  are  allowed.  The  follow- 
ing table  will  help  you  determine  the 
value  to  POKE  into  location  1802. 

Drive       Value 


1 

1 

2 

2 

3 

4 

4 

8 

5 

16 

6 

32 

7 

64 

8 

128 

On  the  130XE,  drive  number  8  is  the 
ramdisk.  Add  up  all  the  values  from  the 
table  above  for  the  drives  you  are  using. 
For  example,  if  you  want  to  use  drives  1, 1, 
and  3,  add  3  +  2  +  4,  so  you  would  use 
this  statement: 

POKE  1802,  7 

Now,  go  to  the  DOS  menu  and  use  option 
H  to  write  your  modified  DOS  to  disk.  The 
next  time  you  boot  up  with  this  disk,  the 
new  drive  will  be  recognized. 

Note  that  each  drive  you  use  will 
take  away  128  bytes  of  your  free  RAM. 


A  Mouse  In  Applesoft 

I  recently  purchased  an  Apple  llGS  sys- 
tem. 1  am  happy  with  it,  but  I  cannot 
find  out  how  to  use  the  mouse  in  my 
own  programs.  I  would  appreciate  any 
information  you  could  give  me. 

Steve  Green 

The  Apple  IIgs  and  Apple  Ik  both  have  a 
built-in  mouse  port.  (A  mouse  is  also 
available  for  the  Apple  He.)  The  mouse  is 
accessed  through  slot  4.  At  the  beginning 
of  your  program,  you  should  initialize  the 
mouse  with  the  following  code: 

PRINT  CHR$(4)  "PR#4" 
PRINT  CHRS<1> 
PRINT  CHR$(4)  "PR#0" 

This  turns  on  the  mouse  and  enables 
transparent  mode,  which  sets  up  an  inter- 
rupt routine  to  update  the  mouse  position 
counters  each  time  the  mouse  is  moved. 
This  is  the  only  mouse  mode  that  works 
with  Applesoft  BASIC. 

After  initializing  the  mouse,  you 
must  set  up  the  mouse  for  input  with  the 
command  IN#4.  Now,  the  mouse  can  be 
read  using  a  statement  of  the  form 

INPUT  X,Y,ST 

where  the  X  variable  returns  a  value  in 
the  range  0-1023,  representing  the  hori- 
zontal coordinate  of  the  mouse;  the  Y 
variable  returns  a  value  in  the  range 
0-1023,  representing  the  vertical  coordi- 
nate of  the  mouse;  and  the  ST  variable 
returns  a  value  representing  the  status  of 
the  mouse  button.  The  button  status  value 
will  be  1  if  the  mouse  button  is  currently 
being  pressed,  2  if  it  was  just  pressed,  3  if 
it  was  just  released,  and  4  if  the  button  is 
currently  released. 

After  you  are  through  reading  the 


SUPER  SUNDAY 

League  Now  Available 


A  major  advance  in  computer  sports 

tectinology  was  achieved  witti  ttie 

release  of  The  Avalon  Hill  Game 

Company's  Office  of  the  General 

Manager  program  for  Super  Sunday. 

It  is  now  possible  for  C64  and  Apple  II 

gamers  to  own  a  professional  football 

team  with  all  the  peeks  and  powers 

*  name  it  arything  you  want  and  hire 

your  family  to  run  it. 

*  acquire  any  player  you  wish  from 
any  of  the  existing  Super  Sunday 
disks.  Hire  Jim  McMahon  as  your 

backup  quarterback,  behind  Bart  Starr 

*  keep  tracK  of  statistics  generated 
by  the  Super  Sunday  game,  including 
those  o1  your  punter,  place  kicker  and 

special  teams. 

*  print  out  everything  from  team 

rosters  to  the  latest  standings. 

"We've  Lost  HOW  MANY  GAMES?!" 

Never  seen  before!  Pickup  the 

newspaper  and  create  your  own 

league  standings!  Choose  from  a 

two-team  division  to  the  giant  36-team 

expansion  league!  Name  the  teams, 

type  In  their  win-loss  records,  points 

for  and  against  and  the  program 

automatically  sorts  them  out  by 

winning  percentage.  It's  quick,  easy 

and  what  you  should  expect  from  your 

computer  games. 


na«„.  ,  !a  -m  'm  is 


Office  of  the  General  Manager . . .  $30.00  * 
Qs  ll  only 
Super_Suriday  Game  Disk:  S35.00 
C*  it  IB?-f  ^"^^  '■^^'^ 

1984.^85.  '66  Seasons:  S20.0Q* 
C'  ii  IBM  CGB  raq'd 

■  0-AnsfShm  ot  [he  Supar  Surday  maslar  game  is  reouired. 

Available  at  leading 

compuier  or  hobby  stores 

everywhere,  or  call 

TOLL  FREE  1-800-638-9292 

Ask  -or  Operator  ClO 

micnocompufcer  games  division 


Em 


Thci  Avalon 
Game  Company 


A  MONARCH  AVALON  INC  COMPANY 
4517  Harford  Poad  •  Ballimore,  MU  21214 


mouse,  your  program  must  execute  an 
IN#0  statement  so  that  the  computer 
again  looks  to  the  keyboard  for  input. 

The  following  BASIC  program  lets 
you  draw  on  the  high-resolution  screen 
with  a  mouse.  To  exit  the  program,  press 
the  vwuse  button. 

10  PRINT  CHR$(4)  'TR#4" 

20  PRINT  CHRSd) 

30  PRINT  CHR$(4)  'TR#0" 

40  PRINT  CHRS(4)  "IN#4" 

50  HGR  :  POKE  -16302,0 

60  INPUT  X,Y,ST 

70  XI  =  INT(X  /  3.65357143):Y1  =  INT(Y 

/  5.35602094) 
80  HPLOT  X1,Y1 
90  IF  ST  =  4  THEN  GOTO  60 
100  PRINT  CHR$(4)'aN#0" 
110  HOME  :  TEXT 


Amiga  Autoboot 

Do  you  have  any  information  about 
how  to  make  an  Amiga  program  boot 
itself  if  the  Workbench  is  not  already 
loaded?  This  would  be  useful  to  a  pro- 
grammer who  doesn't  want  someone 
else  to  break  into  the  program  while  it  is 
loading. 

Marc  Singal 

The  ansiuer  is  to  be  found  in  a  file  named 
startup-sequence,  which  is  found  in  the  s 
(sequence)  subdirectory  of  the  Workbench 
disk.  If  a  file  of  this  name  is  present, 
AmigaDOS  automatically  executes  all  the 
commands  it  contains  before  turning  con- 
trol over  to  the  user.  From  the  AmigaDOS 
CLI,  you  can  use  the  TYPE  command  to 
examine  this  file,  or  ED  to  modify  it.  A 
normal  startup-sequence  file  ends  loith 
these  two  commands: 

loadwb 
endcli  >  nil; 

The  first  command  tells  AmigaDOS 
to  load  the  Workbench,  and  the  second 
terminates  the  startup  sequence,  closing 
the  current  CLI  window  and  throwing 
away  its  output  (directing  its  output  to 
NIL:,  the  null  device). 

If  the  program  you  wish  to  run  is  one 
that  can  run  from  the  Workbench  or  CLI, 
you  can  run  it  from  startup-sequence  sim- 
ply by  inserting  its  name  before  the  endcli 
command.  The  program  will  run  from 
startup-sequence  just  as  if  you  had  typed 
its  name  at  the  CLI  prompt.  For  instance, 
if  you  want  to  run  a  program  named 
myprog,  you  could  edit  the  last  lines  of 
startup-sequence  to  look  like  this: 

loadwb 
myprog 
endcli  >  nil: 

AmigaDOS  will  still  load  the  Work- 
bench, but  before  turning  control  over  to 
the  user,  it  runs  the  program  named  my- 
prog. If  myprog  terminates  normally,  the 
startup-sequence  continues  with  the  last 
line,  which  terminates  the  CLI  and  places 


you  on  the  Workbench  as  usual.  If  you 
delete  the  endcli  command  from  startup- 
sequence,  you  will  find  yourself  at  the  CLI 
prompt  when  myprog  terminates. 

Of  course,  it's  up  to  you,  as  the  cre- 
ator of  myprog,  to  determine  when,  if  ever, 
you  want  the  user  to  escape  the  program. 
If  the  program  is  designed  to  terminate 
normally  (for  instance,  when  you  are 
using  it),  but  you  want  others  to  be  barred 
from  examining  it,  you  could  delete  the 
loadwb  command  from  the  example  start- 
up-sequence file.  When  you  reboot  with 
this  file,  AmigaDOS  does  not  load  the 
Workbench.  When  you  terminate  tnyprog, 
AmigaDOS  executes  the  endcli  command 
as  before.  But  when  you  return  to  the 
Workbench,  the  screen  is  devoid  of  any 
disk  icons  and  contains  no  menus.  With- 
out menus  or  icons  of  any  sort,  the  user  is 
precluded  from  doing  anything  except 
turning  off  the  power  or  rebooting  with 
another  disk. 

You  also  can  run  BASIC  programs 
automatically  when  the  computer  boots  up. 
To  run  the  BASIC  program  named  basic- 
prog,  for  instance,  you  could  edit  the  last 
lines  of  startup-sequence  as  shown  here: 

loadwb' 

amigabasic  basicprog 

endcli  <  nil: 

When  AfnigaDOS  executes  this  file, 
it  loads  and  starts  BASIC,  which  in  turn 
automatically  loads  and  runs  the  program 
basicprog.  If  you  execute  a  SYSTEM  com- 
mand from  BASIC,  startup-sequence  exe- 
cutes the  endcli  command  and  returns  you 
to  the  Workbench  as  usual. 

It's  fairly  simple  to  prevent  someone 
from  examining  a  BASIC  program  ivhich 
runs  automatically  from  startup-sequence. 
All  you  need  to  do  is  disable  the  normal 
BASIC  menus  and  use  ON  BREAK  to 
prevent  the  user  from  breaking  out  of  the 
program  with  CTRL-C.  The  following  pro- 
gram demonstrates  the  basic  techniques. 

'  Turn  off  BASIC  menus 
FOR  j  =  l  TO  4 

MENU  j,0,0,"  " 
NEXT  J 

'  Enable  break  trap 
ON  BREAK  GOSUB  Gotcha 
BREAK  ON 

Loop: 
x$  =  INKEY$ 

IF  UCASE$(x$)  =  "Q"  THEN 
BREAK  OFF 
MENU  RESET 
STOP 
EftolF 
GOTO  Loop 

Gotcha: 

PRINT  "You  can't  break  out  that  way...." 

PRINT  'Tress  Q  to  quit." 

RETURN 

The  MENU  commands  cause  all  of 
the  normal  BASIC  menus  to  disappear, 
preventing  anyone  from  breaking  out  by 


selecting  the  STOP  menu  option.  The  ON 
BREAK  GOSUB  command  tells  BASIC  to 
go  to  the  designated  subroutine  whenever 
it  detects  the  CTRL-C  key  combination, 
and  the  BREAK  ON  command  activates 
the  trap.  At  this  point,  it's  impossible  to 
break  out  by  using  the  menus  or  the 
keyboard. 

This  program  provides  a  "back  door" 
command  (the  Q  key)  that  allows  the  user 
to  exit  under  controlled  circumstances.  In 
this  case,  we  simply  disable  the  break  trap, 
turn  the  menus  hack  on,  and  halt  the 
program  with  STOP.  There  are  a  number  of 
practical  reasons,  apart  from  secrecy,  why 
you  might  want  to  prevent  someone  from 
breaking  out  of  a  program.  A  database 
program,  for  instance,  might  need  to  insure 
that  all  disk  files  are  updated  and  closed 
properly  before  it  relinquishes  control. 
Custom  screens  and/or  windows  should 
also  be  closed  when  no  longer  needed,  to 
avoid  wasting  the  memory  they  consume. 

If  you  don't  provide  a  back  door,  of 
course,  the  user  has  no  way  to  escape  the 
program  short  of  rebooting  the  computer. 
That  method  would  be  suitable  for  a  case 
where  you  wish  to  allow  someone  to  use 
the  program,  but  not  to  examine  it  in  any 
way.  You  could  also  allow  an  escape  from 
BASIC,  but  return  the  user  to  a  "dead" 
Workbench  as  described  above.  If  you  sub- 
stitute SYSTEM  for  STOP  in  the  BASIC 
example,  you  will  exit  BASIC  and  return 
to  the  startup-sequence  file.  If  that  file 
was  edited  to  eliminate  the  LOADWB 
command,  you  will  go  back  to  a  useless 
Workbench  screen.  <a 


All  the  programs  in 
this  issue  are  avail- 
able on  the  ready- 
to-load  COMPUTE! 
Disk.  To  order  a 
one-year  (four-disk) 
subscription,  call 
toll  free 

1-800-727-6937 
Please  specify 
which  connputer 
you  are  using. 
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Nobody's  Perfect.,. 


Game 

Winner 

Time  to  Move 

1 

SARGON  III 

5  seconds 

2 

SARGON  m 

5  seconds 

3 

SARGON  m 

15  seconds 

4 

SARGON  III 

15  seconds 

5 

SARGON  III 

30  seconds 

6 

Chessmaster 

30  seconds 

7 

SARGON  III 

3min 

8 

SARGON  III 

3min 

YOU  CANT  WIN  THEM  ALL. 

We  pitted  Sargon  III,  the  world 
champion,  against  the  challenger. 
Head  to  head,  witli  no  punches 
pulled.  And  believe  it  or  not,  the 
champ  lost  one  game  to  the  chal- 
lenger. But  Sargon  III  beats 
Chessmaster  2000  ahnost  even'time. 

Sargon  HI  is  the  result  of  more  than 
twent)'  one  man  }'ears  of  develop- 
ment. Sargon  III  will  play  at  precise!)' 
the  level  of  difficulty'  you  desire.  Ask 
Sargon  III  for  a  hint,  take  back  a  move 
you've  alread)'  made,  replay  a  se- 
quence, change  sides,  or  set  up  your 
own  board  for  customized  learning. 
Sargon  III  lets  you  stud)'  in  detail 
more  dian  100  great  games  of  histor)' 
or  review  45  classic  chess  problems, 


all  on  screen.  Sargon  III  also  includes 
the  largest  library  of  opening  moves 
available  on  any  chess  program. 

SARGON  III  WRITES  CHESS 
HISTORY 

In  a  tournament  sanctioned  by  the 
U.S.  Chess  Federation,  Sargon  II!  beat 


a  master  rated  2209.  That  makes 
Sargon  III  tiie  only  microcomputer 
program  ever  to  defeat  a  player  at 
that  level. 

Sargon  III  has  no  trouble  wiping 
Chessmaster  2000  off  the  globe. 
Someday,  ma)'be  a  chess  pla5'ing  pro- 
gnun  will  be  able  to  beat  Sargon  ill. 
Until  then,  whidi  chess  program  do 
you  want  to  own:  the  world  champion 
or  tiie  runner-up? 

{Note:  The  test  was  run  on  two  Apple  II  com- 
puiers.  Each  program  played  once  as  white  and 
once  as  black  at  each  level.  Send  us  S5.00  for 
handii  ng.  along  with  a  postage  paid  return  en- 
velope and  we'll  send  you  a  copy  of  the  moves 
each  side  played.) 


Sat^on  [II  is  available  for  Apple  II  series,  Apple  Macintosh,  IBM  PC  and  Qjmmodore  64/128  computers.  You  can  find 

Sargon  U!  at  your  local  retailer  or  call  1-800-826-0706.  Illinois  residents  call  1-800-826-1330. 

Only  MasterCard,  VISA  and  American  Express  accepted  for  phone  orders. 
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Amiga  500 

Rhett  Anderson,  Assistant  Editor 


The  Amiga  500  is  poised  to  break  into 
the  home  market.  Here's  a  firsthand 
look  at  the  newest  version  of  this 
powerful  machine  from  Commodore. 


Judging  by  Commodore's  resolve  at 
the  most  recent  COMDEX  com- 
puter show,  the  company  is  con- 
vinced that  it  can  make  the  Amiga 
into  the  latest  Commodore  success 
story.  The  company  is  so  con- 
vinced, in  fact,  that  it  is  bringing 
two  machines  to  market.  The 
Amiga  500  is  aimed  squarely  at  the 
home  computer  market  previously 
dominated  by  the  64.  The  Amiga 
2000,  along  with  the  PC  compati- 
bles that  Commodore  recently 
brought  to  the  U.S.,  is  part  of  the 
company's  effort  to  secure  a  foot- 
hold in  the  lucrative  business 
market. 

The  two  new  computers  re- 
place the  Amiga  1000,  which  won 
rave  reviews  and  sold  respectably, 
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but  never  gained  the  critical  mass 
necessary  to  become  a  runaway  hit. 
Some  sources  have  claimed  that 
fewer  than  200,000  Amiga  1000s 
were  ever  made.  For  a  company 
which  has  sold  over  six  million  64s, 
that  number  was  not  enough. 

Fortunately,  the  new  Amigas 
retain  the  lOOO's  star  quality  that 
dazzled  the  critics.  And  both  have 
acquired  a  few  new  tricks  of  their 
own.  (For  a  closer  look  at  the  2000, 
see  the  March  1987  issue  of  COM- 
PUTE!.) Amiga's  new  two-fisted  at- 
tack on  the  market  should  end  the 
criticism  that  the  Amiga  was  too 
expensive  to  be  a  home  computer 
and  lacked  the  software  base  to  be  a 
business  computer. 

How  did  Commodore  manage 
to  reduce  the  price  of  the  computer 
so  dramatically?  By  taking  a  close 
look  at  the  market  and  at  its 
computer. 

More  than  any  other  feature, 
the  price  is  the  greatest  difference 


between  the  Amiga  1000  and  the 
Amiga  500.  The  original  Amiga  was 
initially  offered  at  $1,295  without 
an  RGB  monitor.  The  computer 
came  with  256K  bytes  of  RAM,  ex- 
pandable to  512K  with  a  relatively 
inexpensive  add-on.  Further  expan- 
sion was  available,  but  expensive. 
In  contrast,  a  500  with  512K 
RAM  carries  a  list  price  of  $595 
without  a  monitor.  The  new  price — 
plus  a  bit  of  advertising — may  be 
the  catalyst  needed  to  make  the 
Amiga  a  major  player  in  the  home- 
computer  market. 

The  Inherifance 

Rumors  circulated  months  before 
the  introduction  of  the  machines 
speculating  that  the  new  Amigas 
would  have  graphics  chips  able  to 
provide  higher  resolution,  non- 
interlaced graphics.  These  chips  are 
not  present  in  either  the  500  or  the 
2000.  Reportedly,  the  Amiga  engi- 
neers are  still  working  on  new  dis- 
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Subscribe  now  and  you  can  depend  on  a 
steady  supply  of  high  quality,  fun-filled 
programs  like  Hickory  Dickory  Dock, 
Swttchbox,  TurboDisk,  Home  Financial 
Calculator,  Turbo  Tape,  SpeedScript, 
SpeedCalc,  and  hundreds  of  other  educational, 
home  finance,  and  game  programs  the  entire 
family  can  use  all  year  long. 

The  superb  programs  you'!!  find  in  each 
issue  are  worth  much,  much  more  than  the 
low  subscription  price. 

And  there's  more  to  COMPUTE!  than  just 
exciting  new  programs.  Month  after  month, 
COMPUTEi's  superb  articles  deliver  the  latest 
inside  word  on  everything  from  languages  to 
interfaces.. .from  programming  to  disk  drives. 

Whether  you're  a  novice  or  an  experi- 
enced user,  COMPUTE!  is  the  magazine  for 
you.  So  subscribe  today.  Return  the  enclosed 
card  or  call  1-800-727-6937. 

Do  it  now. 


rkatktri,     tXjy^fla'i^^ 


sazi.att  <3S7, 

^LZ.ZZ  2424. 

1.723.  U  2Xa4. 

343. 4S  2«B«. 

< 1 7 . 44  saaa . 


13  -4I».5-» 

Z2        -11. la 

21  C4TT.Bt    - 

22  1311 .?3 

■a  -74J,««  : 

a*  «iX7,U-i 

•a  -ITW.WIT 


COiMM 


ACT  NOW 

COMPini!  Publications,  Inc.® 

One  of  the. ABC  Publishing  Companies  ^B^^ 

If  attached  order  card  is  missing,  write:  COMPUTE!  RO.  Box  10955,  Des  Moines,  lA  50950 


play  technologies.  Presumably,  any 
new  graphics  chips  will  first  appear 
as  enhancements  for  the  2000  (and 
possibly  the  500),  and  then  as  stand- 
ard equipment  in  new  computers. 

As  it  stands  now,  the  Amiga 
still  has  the  most  impressive  graph- 
ics of  any  home  computer.  With 
resolutions  of  up  to  640  x  400  pix- 
els and  4096  colors  to  choose  from, 
the  Amiga  is  capable  of  stunning 
displays.  One  special  screen  mode 
even  allows  all  4096  colors  to  be 
displayed  at  once.  Without  special 
programming,  32  colors  per  screen 
is  the  limit. 

The  Amiga's  powerful  chips 
allow  large  amounts  of  graphics 
data  to  be  moved  and  combined 
quickly  to  provide  animation  that  is 
almost  of  cartoon  quality.  For  the 
artistically  inclined,  the  Amiga  runs 
the  most  spectacular  paint  pro- 
grams available. 

Commodore  recently  an- 
nounced that  arcade  manufacturers 
are  beginning  to  use  a  modified 
Amiga  computer  as  the  engine  of 
their  latest  arcade  games.  As  part  of 
the  agreement.  Commodore  will 
market  the  software  produced  by 
the  arcade-game  publishers.  For  the 
first  time,  you'll  be  able  to  play 
exacdy  the  same  game  at  home  that 
you  can  at  the  arcade. 

The  500  also  inherits  the  musi- 
cal virtuosity  of  its  older  sibling. 
The  Amiga  has  a  dedicated  sound 
chip  with  four  voices.  Two  voices 
each  are  routed  to  the  two  phono- 
plug  outputs  for  stereo  sound.  Like 
the  Apple  Macintosh,  the  Amiga  is 
a  natural  for  recording  and  playing 
back  digitized  sound.  Programs 
such  as  Electronic  Arts'  Deluxe  Mu- 
sic Construction  Set  allow  you  to 
write  your  own  songs  and  hear 
them  played  back  with  digitized 
trumpets,  pianos,  flutes,  and  other 
instruments.  For  those  who  want  to 
use  the  Amiga  for  more  serious  mu- 
sical work,  MIDI  interfaces  are 
available  for  under  $50,  offering 
MIDI  IN,  OUT,  and  THROUGH. 
With  this  interface,  you  can  drive 
external  music  machines  such  as 
synthesizers. 

Multitasking 

Another  of  the  Amiga's  powerful 
features  is  its  mulitasking  operating 
system.  The  computer  can  run  sev- 
eral programs  simultaneously. 
WhUe  this  may  seem  like  a  novelty 
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at  first,  its  usefulness  quickly  be- 
comes apparent.  For  instance,  sup- 
pose you're  typing  away  on  your 
word  processor  and  you  discover 
you  don't  have  enough  room  on 
any  disks  to  save  your  text.  Simply 
pull  up  the  Workbench  screen  and 
format  a  new  disk — without  ever 
leaving  the  word  processor. 

The  Workbench  is  a  mouse- 
and  icon-oriented  windowing  sys- 
tem like  that  of  the  Macintosh.  The 
CLI  (Command  Line  Interface)  lets 
you  communicate  more  directly 
with  the  operating  system.  Using  a 
CLI  is  similar  to  using  the  MS-DOS 
A>  prompt.  The  most  recent  ver- 
sion of  the  Amiga  operating  sys- 
tem, version  1.2,  is  nearly  bug-free, 
and  it's  faster  and  easier  to  use  than 
previous  versions. 

The  New,  Low  Price 

In  order  to  make  the  500  more  cost 
efficient  than  the  1000,  several  de- 
sign changes  had  to  be  made.  These 
changes  affect  the  style  and  person- 
ality of  the  machine. 

The  most  obvious  of  the 
changes  is  the  computer's  appear- 
ance. The  Amiga  1000,  with  its  de- 
tachable keyboard,  and  space  atop 
the  computer  for  a  monitor,  resem- 
bles an  IBM  PC  system.  The  500 
looks  more  like  an  Atari  1040ST. 
The  500's  keyboard  is  physically 
part  of  the  computer  housing,  and 
there's  no  space  on  the  computer 
for  a  monitor.  To  make  up  for  its 
relative  immobility,  Commodore 
expanded  the  keyboard,  matching 
that  of  the  Amiga  2000.  The  new 
keyboard  has  an  enhanced  keypad, 
cursor  keys  in  an  inverse-T  layout, 
and  larger  function  keys. 

In  another  major  change. 
Commodore  placed  the  Kickstart 
portion  of  the  operating  system  into 
ROM.  In  the  1000,  256K  of  protect- 
ed RAM  known  as  the  WCS  (Writ- 
able Control  Store)  held  the 
operating  system,  which  had  to  be 
loaded  from  disk.  Commodore  had 
originally  planned  to  place  the  op- 
erating system  in  ROM,  but  didn't 
feel  the  software  was  sufficiently 
debugged  when  the  1000  was  re- 
leased. Using  the  WCS  gave  the 
software  designers  time  to  fix  bugs 
and  improve  the  performance  of 
the  computer.  Commodore  has  evi- 
dently decided  that  the  1,2  version 
of  the  operating  system  is  good 
enough  to  put  in  ROM.  This  com- 


mitment should  help  convince  de- 
velopers that  the  computer  is 
"finished." 

For  additional  cost  savings, 
new  custom  chips  and  gate  arrays 
were  designed  to  take  over  func- 
tions which  were  previously  per- 
formed by  more  common,  off-the- 
shelf  chips.  For  example,  the  Agnes 
chip  has  grown  into  Fat  Agnes  by 
incorporating  much  of  the  support 
circuitry  that  previously  surround- 
ed the  chip.  More  powerful  chips 
mean  less  complex,  easier  to  pro- 
duce motherboards. 

More  RAM 

The  Amiga  500  comes  with  512K 
bytes  and  is  easily  expandable  to 
one  megabyte  (1024K).  Although 
the  system  can  be  further  expanded 
(up  to  nine  megabytes),  users  look- 
ing for  this  much  power  would  be 
better  off  with  the  Amiga  2000, 
which  can  be  expanded  to  the  same 
amount  internally.  Readers  familiar 
with  eight-bit  computers  may  think 
that  the  256K  of  RAM  in  the  Amiga 
1000  is  plenty,  but  a  great  deal  of 
the  commercially  available  soft- 
ware for  the  machine  requires  at 
least  51 2K. 

A  large  amount  of  memory  is 
especially  important  in  a  multitask- 
ing computer  like  the  Amiga.  The 
more  memory  you  have,  the  greater 
the  number  of  programs  and  utili- 
ties you  can  have  in  memory  at 
once.  One  megabyte  of  memory  al- 
lows for  a  large  ramdisk,  which  can 
speed  up  the  system  a  great  deal. 
Programmers  using  assemblers  and 
compiled  languages  like  C,  Pascal, 
and  Modula-2  will  almost  certainly 
want  at  least  one  megabyte  of 
RAM. 

The  Manuals 

The  Amiga  500  comes  with  two 
books,  Introduction  to  the  Commo- 
dore Amiga  500  and  Amiga  Basic. 
The  first  tells  you  everything  you 
need  to  know  about  setting  up  your 
computer  and  using  it  for  the  first 
time.  There  are  chapters  on  using 
the  Workbench  and  the  CLI,  caring 
for  your  computer,  and  adding  peri- 
pherals to  the  500.  The  BASIC 
manual  is  a  reference  manual  that 
assumes  you  already  know  BASIC, 
Those  ready  to  move  beyond 
BASIC  will  need  the  detailed  tech- 
nical reference  books  available 
from  Commodore. 


The  Amiga  And  The  Rest 
Of  The  World 

In  general  the  500  is  as  expandable 
as  the  1000.  However,  some  of  the 
ports  have  been  moved,  and  two  of 
these  have  had  their  genders 
changed.  Here's  a  quick  look  at 
how  the  500  gets  its  power  and 
talks  to  its  peripherals. 

The  power  supply,  separate 
from  the  computer,  contains  the 
power  switch.  This  makes  it  difficult 
to  turn  the  machine  off  accidently.  If 
you  do,  however.  Commodore  rec- 
ommends waiting  several  seconds 
before  turning  it  back  on  again.  Re- 
setting the  computer  by  pressing  the 
Control  key  in  conjunction  with  the 
two  logo  keys  is  preferable  to  flip- 
ping the  power  switch. 

Two  game  controller  ports  are 
located  on  the  back  of  the  com- 
puter. These  are  used  to  connect 
joysticks,  mice,  paddles,  and  draw- 
ing pads  to  the  Amiga.  Although 
the  computer  can  use  either  analog 
joysticks  (which  are  standard  for 
the  IBM  and  Apple)  and  digital  joy- 
sticks (which  are  standard  for  the 
64  and  Atari  computers),  the  latter 
have  effectively  become  the  Amiga 


standard. 

The  500  has  the  same  RGB 
monitor  output  as  the  1000.  How- 
ever, unlike  the  1000,  the  500  can- 
not use  composite  color  monitors  or 
televisions.  It  does  have  a  new  com- 
posite monochrome  output  which 
could  be  used  to  connect  a  high- 
persistence  monochrome  monitor 
for  high-resolution  word  process- 
ing and  graphics. 

The  genders  of  RS-232  serial 
interface  and  Centronics  parallel 
printer  interface  have  been  changed 
to  make  them  compatible  with  ca- 
bles designed  for  the  IBM  PC. 

The  expansion  port  has  moved 
from  the  right  side  of  the  computer 
to  the  left.  Although  the  500's  port 
is  electrically  identical  to  the 
lOOO's,  some  devices  wdll  not  con- 
nect to  the  500.  However,  it  won't 
be  long  before  manufacturers  begin 
to  consider  the  500  when  they  de- 
sign new  products. 

One  3V2-inch  disk  drive  is  built 
into  the  500,  and  another  can  be 
connected  to  the  external  disk  con- 
nector located  on  the  back  of  the 
machine.  The  drives  are  double- 
sided  and  store  880K  on  each  disk. 


The  Future 

Of  Commodore 

The  Amiga  500  casing  features  the 
embossed  name  Commodore.  It  also 
uses  a  Commodore  logo  key  in  place 
of  the  left  Amiga  key  of  the  1000.  Its 
new  sister,  the  Amiga  2000,  lacks 
any  trace  of  the  Commodore  name. 
Apparently,  Commodore  expects  to 
sell  the  500  to  the  people  most  fa- 
miliar with  the  Commodore 
name — those  who  bought  the  VIC, 
64,  and  128.  The  Amiga  2000  is 
aimed  at  another  market. 

The  new  Amigas  are  an  impres- 
sive pair  of  computers.  Home  users 
will  appreciate  the  500's  graphics, 
sound,  and  programming  power. 
For  the  business  community,  the 
2000  brings  dazzling  graphics  and 
superb  sound  to  the  staccato  of  the 
MS-DOS  world.  The  combination  of 
developer  enthusiasm  and  market 
excitement  is  already  resulting  in  the 
appearance  of  innovative  and  pow- 
erful Amiga  software  and  hardware 
products.  If  Commodore  does  ev- 
erything right,  it  might  just  have 
another  64  on  its  hands,  © 
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32-Bit  Processing: 

Get  Ready  For  The  Next  Wave 


Keith  Ferrell,  Features  Editor 


Fast,  poiverful  32-bit  computers  are 
having  a  big  impact  on  the  business 
market — and  it  won't  be  long  before 
that  impact  hits  home  as  well. 


Horsepower. 

It's  an  odd,  almost  archaic 
word  to  apply  to  the  world  of  com- 
puters, but  it's  the  word  nearly  ev- 
erybody's using  to  describe  the  new 
32-bit  microcomputers  that  are  set- 
ting speed  and  productivity  records 
on  virtually  every  application.  PCs 
built  around  the  Intel  80386  chip, 
and  micros  based  on  the  Motorola 
68000  series  of  chips,  are  being  ex- 
tolled as  having  all  the  horsepower 
even  the  most  dedicated  power 
user  needs  to  achieve  maximum 
computer  speed  and  efficiency. 

What  does  all  that  horsepower 
enable  a  computer  to  do?  Com- 
bined with  the  right  hardware  and 
software,  a  32-bit  computer  can  ac- 
cess gigabytes  of  RAM,  move  huge 
amounts  of  data,  or  accomplish 
mathematical  calculations  at  blind- 
ing speed. 

The  result  is  a  computer  able  to 
complete  spreadsheet  calculations 
more  quickly,  deliver  smoother  and 
more  detailed  graphics  and  anima- 
tion, spellcheck  a  manuscript  in 
seconds,  manage  artificial  intelli- 
gence applications  of  increasing  so- 
phistication and  complexity,  deliver 
digitized  sound,  run  several  pro- 
grams at  once  in  a  process  called 
multitasking,  and  achieve  other  ap- 
plications we  have  not  yet  imagined. 

Essentially,  we  are  seeing  the 
emergence  of  microcomputers  able 
to  do  things  which  previously  re- 
quired expensive  minicomputers  or 
even  mainframes. 
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And  all  of  it  is  a  result  of  the 
latest  strides  in  microprocessor 
technology.  Chips  can  now  work 
with  32  bits  of  data  at  a  time. 

Bit  By  Bit 

At  the  heart  of  any  microcomputer 
is  its  microprocessor,  the  central 
processing  miit  (CPU).  The  micro- 
processor serves  as  the  computer's 
regulating  device,  coordinating  the 
instructions  of  the  operating  sys- 
tem, data,  and  programs  among  the 
memory,  storage,  input/output, 
and  peripheral  devices  of  a  com- 
puter system. 

It  is  the  CPU  that  processes,  or 
moves,  data.  The  data  and  soft- 
ware— whether  a  game,  a  word 
processor  and  text  files,  spread- 
sheets with  cells  and  columns  of 
numbers,  or  anything  else — must 
first  be  broken  into  manageable 
units  of  information.  Each  of  these 
units  is  called  a  byte,  and  is  com- 
posed of  eight  binary  digits,  or  bits. 

The  smallest  unit  of  computer 
memory  is  the  bit.  Eight  bits  ganged 
together  are  called  a  byte.  Four-bit 
microprocessors  can  work  with  four 
bits  of  data  at  a  time,  eight-bit  ma- 
chines can  move  eight  bits  (a  full 
byte),  and  so  on.  Put  simply,  the 
more  bytes  that  the  microprocessor 
can  access,  move,  and  manipulate 
at  one  time,  the  faster  the  results. 

"In  general,"  says  Greg  Riker, 
director  of  Compact  Disc  Interac- 
tive (CDI)  technology  for  Electronic 
Arts,  "the  32-bit  machines  have  the 
ability  to  address  far  larger  address 
space,  which  means  that  applica- 
tions can  be  much  bigger  and  can 
have  huge  amounts  of  RAM  at- 
tached to  the  machine.  And  this 
allows  programs  to  run  far  faster 
and  get  to  a  lot  more  memory  a  lot 
more  quickly." 


Business  Before  Pleasure 

So  far,  the  impact  of  the  32-bit  ma- 
chines has  been  felt  most  dramati- 
cally in  business,  reflecting  a  trend 
that's  been  dominant  since  the  ar- 
rival of  the  second  generation  of 
eight-bit  machines  early  in  the 
1980s.  The  driving  force  behind  the 
first  wave  of  eight-bit  computers 
was  the  home  user,  whose  enthusi- 
asm for  machines,  including  the 
Commodore  64,  the  Apple  II,  and 
the  Atari  eight-bit  series,  did  so 
much  to  convince  hardware  manu- 
facturers that  there  was,  indeed,  a 
market  for  desktop  computers. 

Those  early  enthusiasts  carried 
their  very  contagious  commitment 
to  computers  into  the  workplace, 
which  responded  with  excitement 
of  its  own  once  eight-bit  computers 
capable  of  running  sophisticated 
spreadsheets,  word  processors, 
databases,  and  other  applications 
arrived.  To  be  precise,  those  ma- 
chines— IBM  PCs  and  their  off- 
spring clones  and  compatibles — are 
considered  8/16-bit  machines: 
They're  able  to  address  eight  bits  at 
a  time  and  process  16  bits  at  a  time. 
That  16-bit  processing  capability 
made  it  possible  for  PCs  to  begin  to 
demonstrate  speeds  and  capabili- 
ties that,  however  distant,  at  least 
approached  those  of  minicomputers. 

With  the  business  market  es- 
tablished and  growing  through  the 
early  1980s,  processor  manufactur- 
ers such  as  Intel  and  Motorola, 
along  with  companies  such  as 
Microsoft  (which  developed  the  op- 
erating system  that  runs  the  IBM 
PCs  and  clones),  had  the  capital  to 
apply  intensive  research  and  devel- 
opment energy  to  extending  the  ca- 
pabilities of  8/16  computers,  and  to 
the  development  of  the  next  gener- 


ation  of  processors — true  16-bit 
machines. 

Sweet  Sixteen 

Eight-bit  machines,  such  as  the  IBM 
PC  and  its  offspring  clones  and 
compatibles,  brought  word  pro- 
cessing, spreadsheets,  and  data- 
bases to  every  large  corporation 
and  to  many,  if  not  most,  medium 
and  small  businesses.  With  PCs 
selling  in  the  millions,  an  impetus 
existed  for  the  development  of  the 
next  generation  of  microprocessors: 
the  true  16-bit  chip,  such  as  Intel 
Corporation's  80286. 

If  the  eight-bit  machines  elevat- 
ed computer  speed  to  a  level  where 
big  business  could  do  something 
with  it,  the  16-bit  machines  deliv- 
ered speed  and  capabilities  that 
were  nothing  less  than  stunning. 

"The  286  now  constitutes  that 
mainstream  processor  of  choice  for 
most  business,"  says  Bob  Beach, 
manager  of  corporate  relations  for 
Compaq  Computer  Corporation,  a 
leading  manufacturer  of  business- 
oriented  microcomputers,  and  the 
company  that  introduced  the  first 
production-model  32-bit  computer. 
Just  a  couple  of  years  old,  the 
286  machines  are  being  eclipsed  by 
their  32-bit  descendants.  Does  the 
arrival  of  32-bit  processing  spell  the 
end  of  16-bit  machines?  Not  at  all, 
says  Beach. 

"The  286  is  still  very  much 
alive.  There's  still  a  lot  of  value  left 
in  286  machines  and,  for  that  mat- 
ter, the  eight-bit  PCs.  As  one  user 
upgrades  to  a  32-bit  machine,  his 
286  machine  tends  to  be  passed 
along  to  someone  else." 

Recently  we've  seen  the  intro- 
duction of  16/32-bit  computers, 
such  as  the  Macintosh,  Amiga,  and 
Atari  ST,  which  attempt  to  offer  the 
best  of  both  worlds.  But  it  is  the  true 
32-bit  machine  that  has  caught  the 
attention  of  the  business  community. 

1987  =  386 

Intel's  32-bit  chip  is  the  80386,  and 
excitement  gathered  around  it  from 
the  moment  it  was  introduced. 

"1987  has  been  a  year  in  which 
the  386  machines  have  gotten  a 
great  deal  of  attention,"  says  Bob 
Beach.  "And  I  think  1988  will  defi- 
nitely be  the  year  of  the  386 
processor." 

Compaq  led  the  industry  with 
the  introduction  of  a  32-bit  ma- 


chine, putting  the  Compaq  Deskpro 
386  on  the  market  in  September  of 
1986 — to  much  market  enthusi- 
asm, but  also  to  some  skepticism. 
"One  of  the  things  that  we 
found  most  interesting  when  we 
introduced  our  386,"  Beach  says, 
"was  that  a  lot  of  articles  were  pub- 
lished asking  who  really  needed 
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that  much  power.  And  a  lot  of  the 
answers  were  nobody.  The  286, 
people  felt,  had  plenty  of  speed  and 
memory  for  the  typical  user." 

The  success  of  the  Compaq 
386 — more  than  10,000  were  sold 
in  the  last  quarter  of  1986 — and  the 
quick  entry  of  other  compatibles 
manufacturers,  such  as  PC's  Limit- 
ed (now  Dell  Computer  Corpora- 
tion), into  the  386  market  proved 
the  skeptics  were  wrong. 

"Obviously,"  Beach  notes, 
"there  are  plenty  of  people  out 
there  who  want  this  speed  and 
power.  We  have  yet  to  see  a  level 
point  in  the  PC  industry  where  us- 
ers have  said,  'This  is  it.  1  don't 
need  any  more  speed,  I  don't  need 
any  more  storage.'" 

Is  there  such  a  point?  "I  don't 
have  any  idea  where  such  a  level 
point  is,"  Beach  says,  "if  it  exists  at 
all." 

Out  Of  The  Cradle 

With  386  machines  on  the  market 
and  in  the  hands  of  consumers,  the 
question  becomes:  How  long  will  it 
be  before  we  are  fully  able  to  utilize 
their  capabilities? 

Beach  suggests  it's  too  early  to 
say.  "Thirty-two-bit  processing  is 
still  in  its  infancy.  For  that  matter, 
the  286  is  just  now  starting  to  leave 


its  teenage  years  and  enter  early 

adulthood," 

For  now,  owners  of  386-based 
systems  are  limited  to  using  their 
machines  to  run  existing  IBM-com- 
patible software,  albeit  at  far  faster 
speeds  than  possible  on  286  ma- 
chines. The  current  PC  operating 
system,  version  3  of  Microsoft's 
MS-DOS,  can  access  only  640K  of 
RAM  at  a  time,  and  is  limited  to 
mass  storage  devices  of  32  mega- 
bytes or  less.  It  won't  be  until 
Microsoft's  new  OS/2  operating 
system  is  introduced  that  the  full 
power  of  the  386  will  be  unleashed. 

The  widely-touted  OS/2  is  still 
in  development  at  Microsoft,  with 
release  expected  next  year.  Simulta- 
neously, Microsoft  is  working  on  an 
extension  to  DOS  3  that  will  be  able 
to  handle  larger  amounts  of  RAM 
as  well  as  accessing  larger  storage 
devices, 

"There  are  two  markets  [for 
386  software],"  Bob  Beach  says, 
"and  it's  important  to  bear  both 
operating  systems  in  mind.  Both  of 
them  will  be  important  to  computer 
users,  depending  on  the  individual 
user's  needs," 

The  Price  Of 
IHeading  Home 

So  far,  32-bit  machines  have  re- 
mained high-end  items  mostly  af- 
fordable to  large  businesses. 
Computer  prices,  though,  have  dis- 
played a  tendency  to  decrease  with 
success.  Will  32-bit  technology 
touch  the  home  computer  and  en- 
tertainment market  in  the  next  few 
years? 

"Definitely,"  says  Electronic 
Arts's  Riker.  He  points  out  that 
while  the  home  user  is  not  likely  to 
purchase  a  high-end  32-bit  ma- 
chine— such  as  the  Compaq  Desk- 
pro  386,  PC's  Limited  386i«,  or 
IBM's  new  Personal  System/2  Mod- 
el 80 — other  companies  are  already 
bringing  32-bit  machines  home. 

"In  general,  the  32-bit  proces- 
sors of  both  the  Intel  [386]  family 
and  the  Motorola  68000  family  will, 
as  their  costs  comes  down,  find 
their  way  into  computers  intended 
for  the  home." 

Tandy/Radio  Shack  celebrated 
its  tenth  anniversary  in  the  com- 
puter business  with  the  early  Au- 
gust introduction  of  its  own  386 
machine,  the  Tandy  4000.  Pushing 
the  price  for  an  80386-based  com- 
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puter  down  to  consumer  levels  is 
among  Tandy's  goals  for  the  new 
machine,  says  Ed  Juge,  the  compa- 
ny's director  of  market  planning. 

While  the  Tandy  4000  is  capa- 
ble of  running  DOS  3  and  OS/2,  as 
well  as  sophisticated  business  oper- 
ating systems,  such  as  UNIX,  the 
machine  also  has  a  place  in  the 
home. 

"All  the  horsepower  is  great 
for  spreadsheets,  databases,  and 
other  business  applications,"  Juge 
says.  "But  what's  even  more  excit- 
ing is  the  fact  that  with  all  that 
horsepower,  you  can  move  the 
computer  a  lot  closer  to  consumers 
who've  so  far  hesitated  about  get- 
ting one." 

Because  a  32-bit  machine  can 
access  so  much  memory  so  quickly, 
its  operation  can  be  made  much 
more  transparent  than  that  of  other, 
less  powerful  microcomputers. 
Transparency  options  like  pull- 
down, "point-and-shoot"  operat- 
ing menus,  and  simple  English 
interactive  instructions  consume  a 
lot  of  memory,  but  a  computer  with 
a  memory  potential  measured  in 
gigabytes  can  afford  to  be 
transparent. 

"The  power  of  a  386  ma- 
chine," Juge  says,  "means  that  you 
can  build  in  all  sorts  of  conven- 
iences that  can  make  the  computer 
a  lot  less  scary  to  a  non-technical 
consumer." 

Electronic  Arts's  Riker  also 
views  the  path  from  business  to 
home  as  inevitable.  "Initially,  new 
hardware  gets  sold  into  business," 
he  explains.  "For  business  pur- 
poses, it  makes  sense  to  make  in- 
vestments in  high  performance 
machines. 

"The  home  user  tends  to  pig- 
gyback on  whatever  cost  reductions 
have  been  created  by  volume  use  in 
other  markets.  For  example,  the 
Atari  2600  had  a  [Motorola]  6502 
chip  in  it,  because  the  costs  of  that 
chip  had  been  amortized  in  busi- 
ness. Atari  was  able  to  get  the  chips 
at  an  affordable  price." 

The  arrival  of  32-bit  home 
computers  is  only  a  matter  of  time. 
"If  you  look  at  the  curve  of  the 
introduction  price  versus  the  price 
it  bottoms  out  at,"  Riker  says,  "32- 
bit  processors  have  not  yet  come 
down  that  curve.  When  they  do, 
they'll  definitely  find  their  way  into 
entertainment  machines." 


Heaps  Of  Horsepower 

How  will  32-bit  processing  affect 
the  nature  of  entertainment 
software? 

Riker  points  out  that  while  the 
chip  brings  many  capabilities,  other 
factors  enter  the  picture  as  well. 
"It's  not  just  the  processor,"  he 
points  out,  "it's  the  overall  horse- 
power of  the  system.  A  32-bit  ma- 
chine implies  a  faster  processor 
that's  able  to  execute  many  more 
instructions  per  second." 

"So  for  one  thing,  you  have  a 
higher  performance,  and  that  trans- 
lates into  better  graphics  on  the 
screen,  better  audio  accompani- 
ment, and  a  more  realistic  simula- 
tion of  whatever  the  particular 
product  is  trying  to  simulate." 

The  extra  horsepower  can  be 
put  to  different  tasks.  "Instead  of  4 
colors  or  16  colors  on  the  screen," 
Riker  says,  "we're  up  to  256  colors, 
or  even  more.  And  instead  of  beeps 
and  bloops  for  sound  effects,  we're 
using  digitized  waveforms  of  real 
sound  and  music,  as  on  the  Amiga." 
Commodore's  Amiga  is  a 
16/32-bit  machine,  as  is  the  Atari 
ST  and  Apple's  Macintosh.  "The 
Amiga,"  Riker  suggests,  "offers  a 
real  good  clue  as  to  what  entertain- 
ment machines  will  be  like  in  the 
years  ahead." 

Riker  also  implies  that  16/32  is 
a  bit  of  a  misnomer.  "The  Amiga, 
for  example,  is  actually  a  24-bit  ma- 
chine in  terms  of  address  space,  a 
32-bit  machine  in  terms  of  the  way 
data  is  manipulated  internally,  and 
a  16-bit  machine  in  terms  of  the 
way  it  reads  and  writes  memory." 
How  do  we  know  what  type  of 
machine  it  really  is?  "Basically,  the 
threshold,  as  far  as  I'm  concerned, 
is  whether  or  not  the  processor  can 
do  mathematical  operations  on  32- 
bit  quantities.  In  that  case,  the 
Amiga,  the  Mac,  and  the  ST  are  32- 
bit  machines." 

That's  Entertainment 

Robert  Lindsey,  director  of  creative 
development  at  Epyx,  thinks  it  will 
still  be  some  time  before  32-bit  ma- 
chines exert  a  dramatic  effect  on  the 
home  market.  "386  machines  were 
announced  just  a  little  over  a  year 
ago,"  he  says,  "so  there  hasn't  really 
been  time  for  them  to  have  a  huge 
effect  on  entertainment  software. 

"At  the  same  time,"  Lindsey 
notes,  "it's  always  exciting  for  de- 


velopers to  have  new  technology 
available,  and  we  can  see  all  sorts  of 
opportunities  ahead." 

What  types  of  opportunities? 
"A  multitasking  computer  would 
let  developers  put  together  large 
realtime  adventures  where  things 
are  happening  throughout  a  larger 
real  world  than  what  the  player 
sees  on  the  screen.  Think  of  the 
player  as  in  one  room  in  a  house 
filled  with  many  rooms,  with  some- 
thing going  on  in  each  of  them," 

Animation,  too,  is  an  area 
where  32-bit  processors  will  have 
an  effect,  although  Lindsey  sees 
other  technology  coming  home 
first.  "Enhanced  Graphics  Adapters 
(EGAs)  are  already  changing  the 
way  we  think  about  PC  graphics," 
he  says,  "changing  the  standards 
from  CGA  and  monochrome." 

"Improved  processing  speeds 
will  allow  for  better  animation." 
Lindsey  points  out  that  new  com- 
puters offer  a  larger  palette  of  colors 
as  well.  "Animation  works  best 
when  there  are  more  colors  present 
to  enhance  to  illusion,"  he  says, 
"and  the  new  generations  of  com- 
puters are  offering  huge  color 
selections." 

Another  innovation  whose  ar- 
rival will  be  hastened  by  the  in- 
creased availability  of  32-bit 
machines  is  effective  digitized 
sound.  "Sound  is  the  item  that 
completes  the  illusion,"  says  Bob 
Lindsey. 

Spinoffs  And  Peripherals 

One  thing  that's  certain  about  the 
computer  industry  is  that  innova- 
tions don't  occur  one  at  a  time.  The 
32-bit  processors  themselves  imply 
that  a  variety  of  hardware  and  soft- 
ware support  is  required  to  take 
maximum  advantage  of  the  chip's 
capabilities. 

What  other  innovations  are 
coming,  if  not  hand  in  hand  with 
32-bit  processors,  then  at  least  hard 
on  their  heels? 

"We're  really  excited  about 
CDI,"  Riker  says,  referring  to  Com- 
pact Disc  Interactive — systems  that 
allow  users  to  interface  with  the 
vast  storage  capabilities  achieved 
by  laser-read  digital  compact  discs. 

"My  group  is  currently  putting 
together  development  tools  and 
hardware  for  the  purposes  of  devel- 
oping CDI  systems.  The  systems 
use  compact  discs  as  storage  media, 
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so  REAL  IT  HURTS 

GFL  Oiampionship  FootbaD™ 

The  way  computer  football  should  be. 


Amiga  screen 


Other  football  games  put  you  in  the  grandstands, 
looking  down  on  the  action.  Now  see  what  it's  like 
from  the  player's  perspective — looking  out  of  your 
helmet  at  an  angry  linebacker  headed  straight  for 
you,  and  no  blockers  in  sight. 

With  GFL  Championship  Football,'"  you've  got 
the  first  football  simulation  that  actually  takes  you 
down  on  the  field,  taking  the  hits  and  making  the 
plays.  And  it's  more  than  just  a  pretty  picture — 
you  really  get  the  feel  oi playing  football. 

No  other  football  simulation  gives  you  so  many 

features: 

•  In-the-helmet  perspective  puts  you  at  ground 
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FOOTBALt 


BUBOt* 


level  on  the  playing  field. 

•  Scrolling-screen  animation  moves  you  up  and 
down  the  playing  field. 

•  Realistic  sound  effects  let  you  hear  everything 
from  the  quarterback  calling  the  signals  to  the 
sound  of  your  own  footsteps. 

•  Team  selection  screens  allow  you  to  set  the  play- 
ing style  of  your  team  and  that  of  your  opponent. 

Whether  you're  taking  on  bone-crunching  action 
against  a  friend,  or  going  up  against  any  of  the  27 
computer-controlled  teams  in  the  GFL,  this  is  the 
one  that  puts  you  where  the  action  is! 


Available  now  for  (he  Commodore  64/128,  IBM  PC  and  Tand)  1000,  Apple  He,  lie,  Amiga,  Atari  ST  and  100%  compatible  computers. 

Look  for  Activision  products  at  your  local  software  dealer. 
Or  jou  can  buy  by  mail  at  suggested  list  price  by  calling  1-800-227-6900. 
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Ami^  screen 


CcimmDdDre  64-128  screen 


Coniniodore  6-1-12H  screen 


Commodore  64-128  screen 
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Gameslar  is  a  tradcmock  of  Aclivision  Inc.  Commndon;64.  128  and  Anniga  are  Imdemarks  of  Commoitore  Ekclronics  Limiled 
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each  having  550  or  more  mega- 
bytes of  storage,  which  is  1500 
times  what  you  can  stick  on  a 
floppy." 

There's  more  to  CDI  than  stor- 
age, however.  What  can  CDI  deliv- 
er? "Digital  audio  of  the  same 
quality  that  you  hear  when  you 
play  a  compact  disc  on  your  stereo 
system,  and  television-quality 
imagery." 

In  addition  to  the  features  the 
new  technology  offers,  Riker  is  ex- 
cited about  the  standardization  of 
CDI  technology.  "For  the  first 
time,"  he  says,  "a  specification  for  a 
system  has  been  made  available  to 
any  hardware  manufacturer  that 
chooses  to  license  and  build  it." 

According  to  Riker,  the  CDI 
builders — Phillips  and  Sony — are 
committed  to  keeping  CDI's  archi- 
tecture open  and  standard  so  that 
each  CDI  system  will  be  compatible 
with  all  the  others.  "In  the  past, 
when  the  Commodore  64  came  out, 
you  could  only  get  it  from  Commo- 
dore. When  the  Apple  IlGS  came 
out,  you  could  only  get  it  from  Ap- 
ple. With  CDI,  Phillips  and  Sony 
have  made  the  architecture  of  the 
system  available  to  any  manufac- 
turer who  wants  to  build  it." 

This  decision,  Riker  feels,  will 
have  a  large  impact  upon  consum- 
ers. "For  the  first  time,  consumers 
looking  for  a  computer  will  have 
the  assurance  that  there  is  a  stand- 
ard. Any  CDI  disc  can  be  put  into 
any  CDI  player.  Before,  you  had  to 
be  a  pretty  aware  shopper  knowing 
that  Commodore  software  ran  only 
on  Commodore  hardware." 

Electronic  Arts  is  targeting  sev- 
eral products  to  be  released  in  late 
1988 — at  the  same  time  the  hard- 
ware will  be  ready. 

A  New  Generation— Again 

Will  the  new  CDI  software  require  a 
new  generation  of  chips?  Not  at  all. 
CDI  is  based  upon  Motorola's  32- 
bit  68000  series  of  microprocessors. 

But  if  this  next  generation  of 
technology  rests  on  existing  chips, 
the  computers  themselves  will  be 
something  quite  different  from  the 
keyboard/computer/monitor  com- 
binations we're  familiar  with  now. 

"The  CDI  player  is  itself  the 
computer,"  Riker  explains,  "but  it's 
not  being  called  a  computer.  It's  a 
freestanding  Compact  Disc  Interac- 
tive system,  meaning  that  the  user 


interacts  with  the  system  through  a 
pointing  device.  The  68000  and  all 
the  custom  chips  are  contained  in 
the  box." 

That  box  will  be  linked  not 
with  a  desktop  computer,  but  with 
other,  more  familiar  home  electron- 
ics devices. 


We  have 

not  yet 

envisioned 

what 

tomorrow's 

computer 

appiications 

are  going  to 

be  nice. 


"It  has  left  and  right  audio  out- 
puts that  connect  to  your  stereo 
amplifier,"  Riker  says.  "There's  a 
composite  video  output  which  you 
connect  to  either  a  modulator  or  to 
a  monitor,  and  you're  off  and 
running." 

Computers  For  Everybody 

Riker  and  others  involved  in  CDI 
see  the  technology  as  opening  up  a 
new  market  as  well  as  attracting 
exisdng  computer  users.  "We  see 
CDI  as  a  real  breakthrough  in  get- 
ting to  that  large  body  of  people  out 
there  who  have  not  yet  embraced 
computers  as  something  that's  a 
necessary  part  of  their  lives." 

Because  the  discs  are  read-only, 
users  won't  be  able  to  use  them  for 
word  processing  or  other  opera- 
tions that  change  the  disc  itself. 

"We  see  these  players  being 
put  in  the  living  room,  and  attached 
to  the  television  set  that  the  family 
watches,"  Riker  says,  "as  opposed 
to  being  placed  in  the  study  and 
attached  to  a  monitor  as  a  peripher- 
al to  a  word-processing  type 
computer." 

If  this  approach  to  CDI  suc- 
ceeds, it  will  represent  a  dramatic 
shift  in  the  markedng  of  computers. 
"There's  a  real  divergence  that's 


beginning  to  occur  now  in  terms  of 
the  way  people  think  about  their 
computers,"  Riker  says. 

In  what  way  is  the  market  di- 
verging? "There's  the  kind  of  sys- 
tem that  you  work  on,"  Riker  says, 
"such  as  word  processing,  spread- 
sheets, telecommunications,  and  so 
on.  Or  it's  going  to  be  an  entertain- 
ment system  that  connects  to  your 
home  audio/video  system." 

And  the  entertainment-specific 
32-bit  CDI  systems  will  bring  us  a 
new  generation  of  entertainment? 
"You  bet,"  Riker  says.  "The  degree 
of  realism  is  going  to  be  unprece- 
dented. You'll  have  audio  that's  the 
equivalent  of  the  kind  of  audio  you 
hear  on  a  compact  disc.  The  music 
for  a  game  can  be  composed  by 
John  Williams,  for  example,  or  The 
Police,  or  Bruce  Springsteen.  All  of 
a  sudden  the  doors  are  thrown  wide 
open  for  bringing  in  talent  from 
other  parts  of  the  music  industry 
that  we  never  before  could  consider 
doing." 

What  about  the  pictures  that 
go  with  the  sound?  "The  incredible 
audio  capability,"  Riker  says,  "will 
be  coupled  with  the  ability  to  pre- 
sent television-quality  video  on  the 
screen.  Plus  it's  interactive,  not  to 
mention  the  incredible  amounts  of 
storage  space  you  have  for  audio, 
video,  and  other  aspects  of 
entertainment." 

These  two  paths  for  computers 
come  from  the  same  source:  The 
microprocessor  whose  evolution 
from  4  to  8  to  16  and  32  bits  has 
been  swift  and  is,  doubtless,  not 
over  yet.  Few  who  were  involved  in 
the  industry  a  decade  ago  would 
have,  or  could  have,  predicted  the 
shape  of  the  industry  and  the  part 
computers  play  in  our  lives  today. 

It's  the  same  now,  says  Greg 
Riker,  "These  are  exciting  times, 
and  I  think  we  have  not  yet  envi- 
sioned what  tomorrow's  computer 
applications  are  going  to  be  like," 

Compaq's  Bob  Beach  is  equally 
enthusiastic:  "For  the  first  time  in 
the  history  of  man's  use  of  tools,  we 
have  a  tool  that  is  not  created  for 
any  one  specific  task.  By  combining 
the  right  hardware  and  software, 
you  can  choose  what  task  you  want 
the  computer  to  perform." 

But  while  we  wait  for  those 
applications  to  take  shape,  it's  excit- 
ing— and  entertaining — to  specu- 
late, @ 
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SYLVIA  PORTER'S 

PERSONAL  FINANCE  SERIES 

MANAGES  IT  ALL 

Your  day-to-day  finances.  Your  financial  future. 
And  now,  your  investments,  too. 

Volume  1 

Your  Personal 


■«t«u^ 


Financial  Planner. 

Helps  you  track  your  day-to-day  financial  data,  then 
combines  this  informalion  with  your  future  financial 
objectives  to  produce  the  most  comprehensive  and 
easily-understood  financial  planning  program  arailable. 

For  Your  Day-to-Day  Affairs: 

•  Maintains  your  electronic  check- 
book and  credit  card  transactions. 

'  Vlfrites  your  checks  and 

balances  your  checkbook. 

•  Prepares  and  monitors  your 
budget. 

•  Classifies  and  tracks  your 
taxable  income  and  expenses. 

•  Calculates  your  net  worth  and 
generates  customized  personal 
financial  statements. 

•  ly^cks  your  financial  assets— 

and  your  insurance  policies. 

For  Your  Financial  Future: 

Leads  you  step-by-step  through  a  series 

of  questions  regarding  your  financial 

goals,  and  your  current  financiaf  condition. 

Vour  answers  will  enable  your  computer 

to  determine  and  print  a  summary  of  the  amounts  you  must 

save  each  year  to  meet  your  financial  objectives-in  both  real 

and  inflated  dollars. 

Each  SYLVIA  PORTER  program: 

•  Interfaces  with  the  others  in  the  Series:  You  need  to 
enter  data  only  once. 

•  Generates  unique  graphic  representations  that  display 
your  data  in  colorful  charts. 

•  Includes  a  Customized  Report  Writer  that  prints  out 
any  report  you  want,  tailored  to  your  specific  needs. 

•  includes  Timeworks  New  Quick-Start  Mini  Manual: 

Gets  you  up  and  running  in  less  than  50  minutes!! 
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MORE  POWER  FOR  YOUR  DOLLA  R 

Timeworks,  Inc.,  444  Lake  Cook  Rd.,  Deerfield,  IL  60015 
312-948-9200 

"Phone  modem  required 

"Hegislerod  tradofnarks  ol  Inlernalional  Business  Machines  Corp.,  Apple  Compuler  Systems,  Inc., 

Commacfore  Electmnics.  Ltd..  Dow  Jones  Co.,  Inc. ,  and  Timeworks,  Jnc- 
■£■1984  Sylvia  Porler'a  Personal  Finance  Wagaiine  Co,  STimeworks.  Inc    Alt  Rights  Reserved. 


Volume  2 

Your  Personal 
Investment  Manager. 

This  program  combines  portfolio 
management  with  powerful 
graphics  and  communications 
capabilities,  enabling  you  to 
manage  your  entire  investment 
program.  YOUR  PERSONAL 
INVESTMENT  MANAGER  is  for 
both  beginning  and  advanced 
investors— and  for  both  novice 
and  experienced  computer  users. 

Advanced  window  capability  allows 
you  to  view  information  on  any 
transaction— as  the  need  occurs— 
without  leaving  the  section  you're 
currently  working  in. 


•  Manages  your  investment  transactions: 

Organizes,  classifies,  and  maintains  all  important 
data  on  investment  transactions.  Manages  multiple 
portfolios  that  include  stocks,  bonds,  mutual  funds, 
commodities,  and  much  more. 

•  Tk^cks  and  automatically  updates  your 
investments  in  each  portfolio:  Plus,  maintains 
financial  profiles  on  individual  companies. 

•  Telecommunications  access  to  on-line  services:  Lets 
you  automatically  update  your  investments  using  current  and 
historical  prices  from  Dow  Jones,  CompuServe,  and  Warners." 

•  Unique  Graphic  Analysis  and  Charting  Capabilities! 

Creates  bar,  pie,  high/low/close  price,  volume,  relative  strength, 
and  comparison  charts  for  up  to  520  periods. 

•  Imports  and  exports  LOTUS,  DIP,  and  ASCII  Files 

•  Alerts  you  to  investment  deadlines 

•  Monitors  your  investment  taxes 

•  Investment  Strategies  and  Fundamental  and  Technical 
Analyzers 

•  Prints  your  spreadsheets  sideways 

•  SwiftKeys*;  Just  press  a  key  and  obtain  a  summary  of  your 
current  holdings,  "Hot  Lists,"  an  on-screen  calculator,  and  more. 


...PLUS 

from  DOW  JONES  News/Retrieval* 
Your  Password  and  1  Hour  of  Prime  Time 
Oblue  over  $1201) 


Suggested  Retail  List  Prices: 
IBM  PC*  &  Compatibles  (256K) 

VoM...  $99.95 

Vol  2... $149.95 
Commodore  128*  {128K) 

Voll...   $69.95 


Apple*  (256K) 
Voll...   $99.95 

Commodore  64*  (64K) 
Voll...    $49.95 


At  your  favorite  dealer  today,  or  call  Timeworks:  1-312-948-9202 


When  you  want  to  talk  computers.. 


ATARI  COMPUTERS         COMMODORE  COMPUTERS  MS/DOS  SYSTEMS 


Atari  Computers 

800  XL  64K  Computer Call 

65XE  64K  Computer 87.99 

130XE  132K  Computer 129.00 

520ST  Monochrome  System 499.00 

520ST  Color  System 659.00 


ATARI  SOFTWARE 


Atari  1040  *«!-*% 

Color  System       ^859 

Includes:  1040ST,  1  mb  RAM  with  3V2" 
drive  built-in,  192K  ROM  with  TOS.  Basic, 
ST  language  and  color  monitor. 
New  520ST  FM  is  in  stock... Call 

Access 

Leaderboard  Golf 24.99 

Accolade 

Fight   Night 19.99 

Activision 

Music   Studio 34.99 

Antic 

Cad  3-D 32.99 

Batteries  Included 

Paperclip  w/Spellpack 39.99 

Degas  Elite 48.99 

Infocom 

Zork  Trilogy 44.99 

IVllcroprose 

Top  Gunner 19.99 

Silent  Service 22.99 

Optimized  Systems 

Personal  Pascal 47.99 

Origin  Systems 

Ultima  4  XUXE 39.99 

Paradox 

Wanderer  (3-D) 27.99 

Psygnosis 

Deep  Space 34.99 

Timeworks 

Wordwriter  ST 48.99 

VIP 

Professional   (GEM) 144.00 


COMMODORE  SOFTWARE 


Amiga  500  System 

Includes:  Amiga  500  CPU.  1  MB,  1080 
RGB  Monitor,  Amiga  DOS,  Mouse, 
Kaleidoscope  Cflll 

Commodore  128 259.00 

Commodore  128D 539.00 

Commodore  64C 189.00 

64C,  1541C,  1802C  Package, ...599.00 

128,  1571,  2002  Package 759.00 

128D,  2002  Package 829.00 

Activision 

Gamestar  Series (ea.)  28.99 

Broderbund 

The  Print  Shop 29.99 

The  Toy  Shop 39.99 

Commodore 

Texicraft  w/Graphic  Craft 59.99 

Assembler 79.99 

Enhancer  DOS  1.2 14.99 

Discovery  Software 

Marauder  Back-up 32.99 

Electronic  Arts 

Deluxe  Paint  II 97,99 

Deluxe   Print 74.99 

Instant  Music 34.99 

Deluxe  Video  1.2 97.99 

Infocom 

Hitchhiker's   Guide 28.99 

Micro  Illusions 

Dynamic-Cad 349.00 

Mindscape 

Halley  Project 34.99 

SAT  Prep 51.99 

Micro  Systems 

Analyze  Version  2.0 119,00 

Scribble 66.99 

On-Line/Comm 46.99 

Sublogic 

Flight   Simulator 31.99 

V.I.P. 

V.I. P.  Professional 112.00 


AT&T  6300 from  $1299.00 

Compaq from  1699.00 

IBM-PS-2  Model  30 Call 

IBM-AT from  2499.00 

Leading  Edge from  999.00 

NEC  Multispeed from  1499.00 

Panasonic  Business  Parlnerfrom  799.00 
Toshiba  1000  Lap  Top from  999.00 


PC-TOG  20  Meg  ^^^^ 
XT-Compatible     *999 


MULTIFUNCTION  CARDS 


AST 

Six  Pak  Plus  PC/XT 129.00 

Hercules 

Color  Card 159.00 

Graphics  Card  Plus 209.00 

Fifth  Generation 

Logical  Connection  256K 329.00 

Quadram 

Silver  Quadboard 1 19.00 

Video  7 

EGA  Video  Deluxe 339.00 

Zuckerboard 

Color  Card  w/Paraliel 89.99 

Ashton-Tate 

d-Base  111  + 399.00 

5th  Generation 

Fastback  Utility 89,99 

IIVISI 

Optimouse  w/Dr.  Halo 99.99 

Lotus 

Lotus   1-2-3 329.00 

MicroPro 

Professional  4.0  w/6L  Demo 239.00 

Microstuf 

Crosstalk  XVI 89.99 

P.F.S. 

Firs!  Choice  (Premium) 119.00 

Word  Perfect  Corp. 

Word  Perfect  4.2 209,00 


MS/DOS  SOFTWARE 


M 


COMPUTER  MAIL  ORDER 


When  you  want  to  talk  price, 


DRIVES 


Atari 

AA314  DS/DD  Disk  (ST) $209.00 

AA354  SS/DD  Disk  (ST) 139.00 

SHD204  20  Meg  ST  Hard  Drive579.00 
Commodore 

Amiga  1010  SVa" 219.00 

1541C 179.00 

1571 239.00 

1581  3V2"  External 229.00 

CSI 

10  mb  (64-128) 1099.00 

Indus 

GT  Disk  Drive  Atari  XL/XE 179.00 

Microbotics 

20  mb  Hard  Drive  (Amiga) 1299.00 

Racore 

Jr.  Expansion  Chassis 299.00 

Seagate 

20  mb  ST-225  Hard  Drive  Kit... .369.00 

Supra 

20  Meg  Hard  Drive  (ST) 559.00 

Xebec 

20  mb  (Amiga) 899.00 

Amdek 

Video  300  Amber  Comp 139.00 

Commodore 

Commodore  2002 319.00 

Amiga  1080  Hi-Res  Color 299.00 


MODEMS 


MONITORS 


Magnavox  8502 
RGB/Composite    *179 

Magnavox 

8505  RGB/Composite 199.00 

NEC 

12"  TTL  Green  or  Amber 109.00 

JC-1401P3A  Multt-Sync 549.00 

Princeton  Graphics 

MAX-12  12"  Amber  TTL 149.00 

Taxan 

Model  124  12"  Amber 119.00 

Zenith 

ZVM  1220/1230 (ea.)  99.99 


U.S.  Robotics       <t#v*%ao 
1200  Baud  Direct    *99^^ 

Anchor 

Volksmodem   1200 99.99 

6480  C64/128  1200  Baud $119.00 

VM520  ST520/1040  1200  Baud.  129.00 
Atari 

XM301  300  Baud 42.99 

Best 

1200  Baud  External ..119.00 

Commodore 

Amiga  1680-1200  BPS 169.00 

CBM  1670  &  C-128) 99.99 

Everex 

Evercom  1200  Baud  Internal 109.00 

Hayes 

Smartmodem  300  External 139.00 

Smartmodem  1200  External.. ....319. 00 

Novation 

Parrot  1200 119.00 

Practical  Peripherals 

1200  BPS  External 159.00 

Supra 

MPP-1064  AD/AA  C64 69.99 

1200AT  1200  Baud  Atari 139.00 

U.S.  Robotics 

2400  Baud  Internal $189.00 

Maxell 

MD1-M  SS/DD  5^/4" 9.99 

MD2-DM  DS/DD  S'A" 10.99 

MF1-DDM  SS/DD  SVz" 12.99 

MF2-DDM  DS/DD  SV?" 21.99 

Sony 

MOID  SS/DD  5V4" 8.99 

MD2D  DS/DD  5V4" 10.99 

MFD-100  SS/DD  31/2" 13.99 

MFD-200  DS/DD  31/2" 20,99 

Hewlett-Packard  Calculators 

280  Scientific  Pro 199.99 

18C  Business  Consultant 139.95 

12C  Slim  Financial 74.99 


DISKETTES 


PRINTERS 


Atari 

1020  XL/XE  Plotter $30.99 

1025  XUXE  Dot  Matrix 129.00 

XDM121  Letter  Quality 199.00 

XMM801  XL/XE  Dot  Matrix 189.00 

XMM804ST  Dot  Matrix 179.00 

Brother 

M-1109  100  cps,  9  pin 199.00 

M-1409  180  cps,  9  pin 339.00 

Citizen 

MSP-10  160  cps,  80-Column 299,00 

Premier  35  cps  Daisywheel 499.00 

C.ltoh 

315P  132  Column  Prowriter 449.00 


Epson  LX-800 

150  cps  Dot  Matrix*  169 

Epson 

FX-86E  240  cps,  80-column 329.00 

FX286E  240  cps,  132-column... .459.00 

EX-800  300  cps,  80-column 399.00 

LQ-800  180  cps.  24-Wire 459.00 

Hewlett  Packard 

Thinkjet 379.00 

NEC 

Pinwriter  660  24  Wire 489.00 

Pinwriter  760  24  Wire 689.00 

Okidata 

Okimate  20  Color  Printer 129,00 

ML-182  120  cps,  80-column 239,00 

ML-192-t-  200  cps,  80-column.. .369.00 

ML-igS-H  200  cps,  132-column. 549.00 

Panasonic 

KX-1080i  120  cps,  80-column. ...179.00 

KX-1091i  180  cps,  ao-column.,.. 189.00 

KX-P3131  22  cps  Daisywheel.... 289.00 

Star  Micronics 

NX-10  120  cps,  80-column 179.00 

NX-IOC  120  cps,  C64  lnterface.219.00 

NX-15  120  cps,  132-column 359.00 

Toshiba 

P321SL  216  cps,  24-Pin  Head...539.00 


In  the  U.S.A.  and  in  Canada 

Call  toll-free:  1-800-233-8950. 

Outside  the  U.S.A.  call  717-327-9575    Telex  5106017898    Fax  717-327-1217 
Educational,  Governmental  and  Corporate  Organizations  call  toll-free  1-800-221-4283 
CMC.  477  East  Third  Street,  Dept.  A210,  Williamsport,  PA  17701 

po.rrv  A^H^c   ,  „  ^l-L  MAJOR  CREDIT  CARDS  ACCEPTED. 

prices  and  are  subiect  to  change  and  all  items  are  sStf aval  lab  NhfoefPrLpT^^^^  Pennsylvania  residents  add  6%  sales  lax.  All  prices  are  U.S.A. 

or  repaired  at  our  discretion  within  ttte  terms  and  I  mil  o  tha  manu^ctu  e^  '^''^"''  *"^  L^*  ^^'"^  ''^^  °"'i'-  »^"i^^<B  wi"  be  replaced 

are  subject  to  a  restocking  fee  manufacturer  s  warranty.  We  cannot  guarantee  compatibility.  All  sales  are  final  and  returned  sfiipments 


Reviews 


World  Class  Leader  Board 


James  V.  Trunzo 

Requirements:  Commodore  64,  Apple  11 
series  (with  a  minimum  of  64K),  and  IBM 
PC  and  compatibles  (with  a  minimum  of 
256K). 


If,  by  the  time  this  is  published,  playing 
18  holes  is  just  a  memory  of  last  sum- 
mer, you'll  be  thrilled  to  know  that  you 
can  vicariously  exercise  your  passion 
for  golf  through  the  use  of  a  new  soft- 
ware simulation.  On  the  other  hand,  if 
you  are  reading  this  in  a  place  where 
the  sun  is  scorching,  you  can  delight  in 
the  knowledge  that  you  can  beat  the 
heat,  stay  indoors,  and  still  "hit  the 
links"  each  day.  Either  of  the  above 
scenarios  can  be  accomplished  simply 
by  loading  World  Class  Leader  Board  into 
your  computer. 

World  Class  Leader  Board  from  Ac- 
cess Software  isn't  the  first  arcade-style 
golf  simulator,  but  it's  got  to  be  one  of 
the  best.  A  simulation  of  this  type  needs 
to  possess  three  key  ingredients  if  it 
expects  to  gain  recognition  in  the  com- 
petitive field  of  sports  simulations:  It 
must  be  challenging,  yet  fair;  it  must 
faithfully  simulate  the  sport;  and  it 
must  be  aesthetically  pleasing.  World 
Class  Leader  Board  exceeds  the  norm  in 
all  three  categories. 

Like  The  Real  Thing— Tough 

To  begin  with,  the  game  starts  as  a 
challenge  and  remains  one  in  such  a 
manner  as  to  parallel  the  real  sport  of 
golf.  Being  an  arcade  game.  World  Class 
Leader  Board  requires  good  hand/eye 
coordination  and  concentration  (the  two 
really  go  together).  So  does  the  real 
game.  And  like  the  real  game,  this  simu- 
lation rewards  and  punishes  each  drive, 
each  approach  shot,  and  each  putt  in 
such  a  gradient  manner  that  if  your  tim- 
ing on  any  given  day  is  off  just  a  little, 
the  result  is,  at  best,  a  par,  but  more 
likely  a  bogey.  Therefore,  even  after 
playing  hundreds  of  holes,  you  no  more 
master  the  game  than  does  a  Greg  Nor- 
man or  an  Arnold  Palmer.  If  your  hand/ 
eye  coordination  is  off  more  than  a  little, 
well,  head  for  the  nineteenth  hole. 
On  the  other  hand,  when  it  all 


comes  together — when  your  backswing 
generates  maximum  power  and  your 
wristsnap  guarantees  a  straight  flight — 
World  Class  Leader  Board  provides  you 
with  such  a  sense  of  accomplishment 
that  you  want  to  throw  your  imaginary 
golf  club  high  in  the  air  and  shake  hands 
with  your  caddie.  The  game  provides 
this  thrill,  in  a  large  part,  through  its 
excellent  graphics  and  animation. 

The  graphics  in  World  Class  Leader 
Board  are  a  delight.  Two  views  are  avail- 
able as  you  play  each  hole.  A  Top  View 
provides  you  with  an  overview  of  the 


Commodore  64  version  of  World  Class 
Leader  Board. 

entire  hole,  citing  your  current  position. 
The  most  commonly  used  view,  how- 
ever, is  a  full-screen  view  seen  from 
behind  a  highly  detailed  golfer  figure. 
The  latter  view  clearly  delineates 
fairways,  rough,  greens,  and  obstacles 
such  as  trees,  water,  and  sandtraps  in  a 
realistic  and  functional  manner.  Fur- 
thermore, considering  how  much  detail 
has  gone  into  displaying  each  hole  (up 
to  196  trees  per  hole,  for  example),  the 
screens  are  quickly  drawn  and  redrawn 
when  shifting  from  view  to  view  or 
moving  from  stroke  to  stroke.  This  is  a 
bonus,  because  some  simulations  tend 
to  get  bogged  down  because  of  the  time 
delay  between  actions. 

Forel 

As  mentioned,  the  graphics  are  not  only 
aesthetically  pleasing,  but  also  func- 
tional, a  factor  which  cannot  be  under- 
estimated—in a  game  of  this  type,  part 


Worid  Class  Leader  Board— Apple  U 
version. 

of  the  vicarious  experience  is  "seeing" 
what  you  have  done  as  opposed  to  just 
knowing  you  drove  the  ball  250  yards 
or  missed  a  putt  by  inches.  In  World 
Class  Leader  Board,  every  hook,  slice, 
chip  shot,  and  putt  are  accurately  dis- 
played. You  literally  see  a  putt  slowly 
curving  towards  the  hole — or  popping 
over  it  if  you've  putted  too  hard.  You 
see  the  ball  bounce  off  the  flag  when 
you've  hit  a  perfect  9-iron  shot — or 
bounce  off  of  a  tree  trunk  when  your 
shot  leaves  the  fairway.  You  hear  the 
plop  when  the  putt  sinks  into  the 
hole — or  into  the  water.  No  detail  has 
been  ignored  by  Access  in  designing 
this  game. 

The  golfer  figure  itself  is  also  worth 
mentioning.  FuU-figured,  the  golfer  is 
an  integral  part  of  the  game.  You  mea- 
sure his  backswing  and  follow  through 
in  two  ways.  The  first,  obviously,  is  by 
watching  the  animated  figure;  the  sec- 
ond way  is  by  watching  sidebars  that 
gauge  power,  snap,  and  distance.  These 
sidebars  work  in  sync  with  the  golfer  to 
produce   all   shots   taken   during   the 


Worid  Class  Leader  Board— IBM  PC 

and  compatibles  version. 
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Before  you  buy 
insurance, 

examine  the  eviaence." 


RAYMOND  BURR 


iCl^ 


An  agent  who  works  for  one  company 

can  only  offer  you  the  policies  that 

his  company  sells.  An  Independent 

Insurance  Agent  represents  several 

companies.  So  wur  Independent 

Agent  can  help  you  select  the  right 

coverage  at  the  right  price 

because  there  are  more  policies 

from  which  to  choose. 

The  evidence  is  clear. 


THE  MORE-THAN-ONB-COMPANY 
INSURANCE  AGENT, 

You'll  find  the  Independent  Insurance  Agenf 
nearest  you  in  the  Yellow  Pages. 


course  of  play.  Incidentally,  all  choices 
and  actions  can  be  controlled  through  a 
joystick  or  the  keyboard. 

Simulated  Clubs 

World  Class  Leader  Board  provides  the 
player  with  a  complete  choice  of  clubs: 
3  woods,  9  irons,  a  pitching  wedge  and 
a  putter.  Each  club  produces  a  range  of 
results  realistic  to  the  type  of  club  used 
and  dependent  upon  how  cleanly  the 
ball  is  hit.  You  can  also  choose  various 
power  levels  to  alter  the  distance  pro- 
duced by  each  club  within  its  given 
parameters. 

Actual  play  mirrors  reality  almost 
too  closely  when  you  have  a  stroke  like 
mine.  Four  courses  are  available  for 
play:  St.  Andrews,  the  Doral  Country 
Club,  Cypress  Creek,  and  a  course 
known  forebodingly  as  the  Gauntlet.  As 
expected,  each  course  is  an  exact  replica 
of  the  original,  with  obstacles  and  haz- 
ards placed  in  frustratingly  challenging 
(but  realistic)  positions.  Putting  greens 
are  sloped,  and  players  must  correctly 
read  the  break  as  well  as  recognize 
whether  or  not  he  is  putting  uphill  or 
down.  As  if  these  factors  weren't 
enough.  Access  has  added  a  wind  factor 
that  can  range  from  a  refreshing  breeze 
to  a  gale  that  affects  all  shots. 


Extra  Features 

It's  obvious  that  World  Class  leader 
Board  can  claim  excellence  in  all  the 
crucial  areas  needed  to  make  it  a  top- 
flight game.  Nevertheless,  Access  goes 
that  extra  Step  to  make  the  game  even 
better.  Consider  the  following  features: 

•  A  course  editor  which  allows  you  to 
create  your  own  course  by  choosing 
from  among  the  72  holes  present  in  the 
game. 

•  Practice  driving  ranges  and  putting 
greens  to  sharpen  your  game  before 
competition.  This  not  only  gives  you  the 
opportunity  to  learn  how  to  drive  the 
ball  straight,  it  also  allows  you  to  learn 
to  slice  and  hook  to  your  advantage. 

•  One  to  four  players  may  compete  at 
individual  difficulty  levels.  This  per- 
mits various  types  of  handicapping. 
The  Kids  Level,  for  example,  eliminates 
all  slices,  hooks,  and  wind  factors.  On 
the  Pro  Level,  putting  becomes  a  true 
art  form. 

•  Printed  scorecards  can  be  obtained  at 
the  end  of  18,  35,  54  or  72  holes  (de- 
pending upon  user's  choice  of  number 
of  holes). 

•  Realistic  penalties  are  assessed  for 
landing  in  water,  there's  true  dampen- 
ing of  shots  when  hitting  from  the 


rough,  and  you  encounter  life-like  diffi- 
culty when  blasting  out  of  a  sandtrap. 

Worth  noting,  too,  is  the  fact  that 
Access  is  intent  on  supporting  World 
Class  Leader  Board.  Additional  18-hole 
course  layouts  for  use  with  this  game 
are  available. 

World  Class  Leader  Board  is  an  ex- 
cellent buy  for  both  the  casual  sports 
enthusiast  and  the  avid  golfer.  It  scores 
an  eagle  in  all  departments. 

World  Class  Leader  Board 

Access  Software 

2561  S.  1560  West 

Woods  Cross,  Utah  84087 

$39.95  Commodore  64  and  Apple  11 

series  versions 

$44.95  IBM  PC  and  compatibles  version 

Additional  course  disks:  $19.95 


Abacus  Best  Selling  Software 


Ft 


Professional-quality  Pascal 
development  package 


for  your  COMMODORE*computer 

Cadpak 

Computer  aided 

design  and 

drawing  software 

Now  works  with 
the  1351  mouse 


Your  complete  system  for  developing  applications  in  Pascal.  A 
complete  implementafon  of  standard  Pascal  (Jensen  and 
Wirth).  C-64  version  has  a  high-speed  DOS  (3X)  for  quick  and 
efficient  use.  The  extensive  editor  (source  included)  contains 
added  features:  append,  search  and  replace.  Assembler 
included  to  optionally  code  in  machine  language.  Super 
Pascal  is  so  capable  that  it's  used  in  hundreds  of  schools  to 
teach  Pascal.  But  it  can  be  used  for  serious  programming.  The 
graphic  library  (source  included)  is  written  in  machine  language 
for  fast  execution.  Want  to  develop  Pascal  software  using  the 
best  tool?  Super  Pascal  is  your  first  choice, 
for  C-64     $59.95  for  C-1 28   $59.95 

Call  now  for  the  name  of  your  nearest  dealer.  Or  order  direct  by 
calling  (616)  241-5510.  Add  $4.00  per  order  (or  shipping  and 
handling.  Foreign  add  $12.00  per  item.  Other  books  and 
software  also  available.  Call  or  write  for  your  free  catalog. 
Dealers  inquires  welcome — over  2000  nationwide.  Commodore 
is  a  registered  trademark  of  Commodore  Electronics  Ltd.      


Design  pictures  and  graphics  quickly  and  precisely.  Unlike  other 
drawing  programs,  you  can  produce  exact  scaled  output  on  your 
printer.  Design  in  the  units  of  your  drawing  problem  {feet,  miles, 
meters,  etc.}  and  send  hardcopy  to  most  printers.  Uses  either 
the  keyboard,  lightpen  or  1351  mouse.  Two  separate  work 
screens— transfer  artwork  from  one  screen  to  the  other.  Place 
text  in  four  sizes  anywhere— three  extra  fonts  included:  Old 
English,  3-D  and  Tech.  Try  Again"  functions  allows  you  to  undo 
a  mistake.  Solid  or  dashed  lines,  circles,  ellipses  at  any  angle, 
rays  and  boxes.  Save  and  edit  fill  patterns,  fonts  and  objects. 
Cadpak  is  the  full-featured  design  package  for  your  computer, 
for  C-64    $39.95  for  C-1 28  S59.95 


Abacus  iiiM 


P.O.Box7219,Dept.CA 

Grand  Rapids,  Ml  49510 

Telex  709-1 01  •  Telelax  616/241  -5021 

Phone  fBI  6)  241 -5510 
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The  Bard's  Tale  II:  The  Destiny  Knight 

James  V.  Trunzo 


Requirements:  Apple  11  series  and  Com- 
modore 64. 


Electronic  Arts'  first  venture  into  com- 
puterized fantasy  role-playing  games 
resulted  in  the  highly  popular  and  criti- 
cally acclaimed  The  Bard's  Tale  1:  Tales 
of  the  Unknown.  The  product  immedi- 
ately set  new  standards  for  game  play, 
graphics,  and  sophistication.  The  long 
awaited  sequel— entitled  The  Bard's 
Tale  11:  The  Destin\/  Knight— has  ar- 
rived, and  it  lives  up  to  its  predecessor's 
excellent  reputation. 

The  plot  is  typical  of  a  fantasy 
game:  Evil  in  the  form  of  the  Archmage 
Lagoth  Zanta  threatens  to  spread  its 
dominion  over  the  entire  Realm,  and 
only  the  Destiny  Wand  has  the  power 
to  end  the  threat.  Unfortunately,  this 
magical  artifice  has  been  shattered  into 
seven  pieces,  each  piece  now  hidden  in 
one  of  seven  different  locations  within 
the  Realm.  Your  group  of  adventurers 
must  locate  the  pieces,  reconstruct  the 
wand,  and  destroy  the  wicked  Zanta. 

New  Features 

Bard's  Tale  II  plays  almost  identically  to 
Bard's  Tale  /—which  isn't  a  fault. 
Changes  come  in  the  form  of  additions 
rather  than  in  alterations  of  basic  gam- 
ing procedures.  There  are  six  complete 
cities  instead  of  one,  though  the  dties 
themselves  are  basically  the  same,  with 
only  their  layout  being  different.  There 
is  a  small  but  interesting  area  of  wilder- 
ness in  Bard's  Tale  II,  where  none  had 
existed  in  Bard's  Tale  I,  and  there  are 
new  spells  and  new  animated  monsters. 
All  in  all.  The  Destiny  Knight  is  about  50 
percent  larger  in  code  size,  according  to 
the  people  at  Electronic  Arts. 

Banks  and  casinos  can  now  be 
found  in  the  cities,  also.  The  former  is  a 
real  plus  because  it  provides  you  with  a 
place  to  stash  your  money,  making  it 
less  likely  to  lose  it  to  some  ultimate 
evil — like  a  power  outage  or  stupidity 
(such  as  turning  off  your  computer 
before  saving  your  characters). 

Creating  characters  requires  the 
same  steps  in  Bard's  Tale  11  as  it  did  in 
Bard's  Tale  I.  You  can  also  import  your 
characters  from  Bard's  Tale  1  (or  Wizard- 
ry or  Ultima,  for  that  matter)  if  you  so 
desire,  and  a  third  option  allows  you  to 
simply  use  a  set  of  pregenerated  charac- 
ters. Be  forewarned,  however,  that 
when  transferring  characters,  certain 
items  might  be  lost  in  the  process, 
though  not  enough  to  make  you  for- 
sake your  favorite  Hobbit. 

The  character  classes  and  types  are 


standard:  warriors,  thieves,  wizards, 
humans,  elves,  dwarves,  and  the  like. 
However,  the  Bard  character — unique 
to  EA's  adventure  games — is  back,  and 
a  new  character  class  debuts:  the  Arch- 
mage. This  character  class  could  be 
achieved  in  Bard's  Tale  I  in  the  form  of  a 
conglomerate  of  the  other  magical 
types;  in  Bard's  Tale  II,  the  Archmage 
has  its  own  set  of  very  powerful  spells. 
Several  other  new  features  help 
make  The  Destiny  Knight  different  from 
its   predecessor. 

First  of  all,  range  factors  in  combat 
add  a  new  twist  to  the  hacking  and 
slaying  that  occurs  with  such  frequency 
in  this  program.  Missile  weapons  may 
now  be  employed  to  attack  enemies 
outside  melee  distance.  Even  magic 
spells  are  given  a  range  of  effectiveness, 
losing  power  if  cast  at  distances  beyond 
their  given  scope.  The  range  feature 
requires  the  gamer  to  employ  more 
strategy  than  before,  making  combat  a 
little  more  interesting. 

Combat,  however,  reveals  a  prob- 
lem in  the  program.  Early  on,  your  fight- 
ers are  key  characters,  bearing  the  brunt 
of  the  fighting  while  magic  users  devel- 
op their  skills  and  learn  new  spells.  Later 
on,  though,  the  opposition  becomes  so 
powerful  that  even  high-level  fighters 
can't  seem  to  score  against  them  with 
any  frequency,  and  only  high-level 
spellcasters  can  save  your  group  of  ad- 
venturers at  this  point.  There  is  some- 
thing vaguely  unsatisfying  about  this, 
especially  if  your  favorite  character, 
carefully  nurtured,  is  a  warrior. 

Perplexing  Puzzles 

The  realtime  puzzles,  better  known  as 
Snares,  are  a  second  major  feature  not 
found  in  Bard's  Tale  I.  These  puzzles, 
seven  in  all,  must  be  solved  because 
each  one  houses  a  piece  of  the  Destiny 
Wand.  The  Snares  are  deadly.  Virtually 
no  magic  works  in  these  areas,  and  the 
game's  pause  feature  is  inoperative 
there.  If  the  puzzle  isn't  solved  in  the 
allotted  time  (usually  everything  you 
need  is  contained  within  the  Snare  it- 


The  Avalon  Hill  Game  Company 
comes  crashing  into  the  world  of 
professional  basketball  with  NBA, 
the  only  statistical  basketball 
game  licensed  by  the  National 
Basketball  Association. 

NBA  puts  you  on  the  court  with 
Larry  Bird,  Kareem  Abdul-Jabbar, 
Dr.  J  and  the  best  of  pro  B-ball. 

Play  begins  with  20  great  teams, 
including  the  world  champions 
from  the  last  five  years.  Your 
brilliant  play  calling  is  re-enacted 
by  all  ten  players  animated  on 
screen.  NBA  also  comes  with  an 
accelerated  Autoplay  mode  and 
stat-keeping  programs  so  that 
aspiring  league  commissioners 
can  run  their  own  leagues. 


The  fun  begins  on  the 
Commodore- 64/128,  Apple®  11 
Family  and  JBM^  PC  and  MSDOS 
compatibles.  S39.95. 

Available  separately  is  the 
1986-1987  Season  Dislt.  v/hich 
includes  ALL  23  teams.  $20.00. 
A  General  Manager  Disk  will  be 
available  soon. 

AVAILABLE  EVERYWHERE  or 
call  toll-free:  1(800)638-9292. 

Ask  for  Operator  CIO 

misnocsmputen  gomes  division 


The  Avalon 
Game  Company 


DIVISION  OF  MONARCH  AVALON.  INC. 
4517  Harford  Road  •  Baltimore.  UD  21214 


self),  your  party  perishes.  This  concept 
isn't  inherently  bad — as  a  matter  of 
fact,  several  of  the  Snares  are  really 
enjoyable,  but  there  is  a  down  side  to 
this  feature,  too, 

I  found  some  of  the  Snares  to  be 
not  only  deadly  but  also  very  frustrat- 
ing. The  fact  that  some  of  the  puzzles 
are  difficult  doesn't  bother  me.  What 
does  bother  me  is  the  need  to  repeat 
certain  actions  over  and  over  again 
when  those  actions  add  nothing  to  the 
information  needed  to  solve  the  puzzle. 
For  example,  in  one  case,  you  literally 
must  run  back  and  forth  between  two 
walls  a  number  of  times  to  solve  the 
puzzle.  That's  the  type  of  "action"  most 
gamers  can  do  without. 

A  third  area  that  can  both  delight 
and  annoy  is  the  interaction  between 
the  wise  Sage,  who  is  an  indispensible 
personage,  and  your  characters.  The 
Sage  possesses  knowledge  about  the 
location  of  the  dungeons.  By  convers- 
ing with  him,  you  can  gain  the  infor- 
mation you  need.  Be  forewarned, 
though,  that  you  must  be  very  precise 
in  what  you  ask  and  in  how  you  spell 
the  words  that  comprise  your  questions 
and  responses.  Errors  in  spelling  or 
omitted  words  in  a  request  can  thwart 
your  attempt  to  get  answers  from  the 
Sage.  This  type  of  problem  exists  in 
many  adventure  games,  especially  text 
adventures;  however,  since  it  costs  gold 
to  talk  to  the  Sage,  errors  are  quite 
expensive  in  The  Destini/  Knight. 

Expanded  Challenges 

Before  this  review  takes  on  too  negative 
a  tone,  understand  that  1  found  the 
game  to  be  a  delight.  It  improves  on 
Bard's  Tale  /  in  many  areas,  and  it  does 
what  a  sequel  is  meant  to  do:  It  expands 
the  theme  and  adds  features  to  enhance 
that  expansion.  The  new  monsters, 
graphics,  traps  and  puzzles,  and  so  on, 
make  Bard's  Tale  11  a  real  challenge. 
Furthermore,  the  graphics  are,  once 
again,  done  well,  and  there  is  more 
animation  in  Destiny  Knight  than  in 
Bard's  Tale  I. 

Also,  powerful  monsters  can  now 
be  summoned  to  be  a  permanent  part  of 
your  adventuring  group.  In  Bard's  Tale 
I,  creatures  can  be  summoned,  but  they 
vanish  after  the  adventuring  party  re- 
turns to  the  Guild.  Additionally,  be- 
cause a  guild  exists  in  each  city  in  the 
new  adventure,  games  can  be  saved  at 
any  one  of  six  different  locations.  Final- 
ly, a  beginner's  dungeon  exists  to  help 
new  parties  reach  a  competitive  level 
prior  to  venturing  forth  in  search  of  the 
pieces  of  the  Destiny  Wand. 

This  last  feature,  the  starter  dun- 
geon, is  a  nice  piece  of  planning.  Many 
adventure  games  are  difficult  to  get  ab- 
sorbed in  because  new  characters  get 


killed  so  quickly.  While  Bard's  Tale  U  is 
no  less  deadly  (more  on  this  in  a  mo- 
ment), it  at  least  gives  you  a  chance — 
not  to  mention  some  game  play — to  get 
characters  off  the  ground. 

Bard's  Tale  li  is  a  game  for  the  true 
adventure  gamer.  It  is  a  very  difficult 
and  challenging  game,  and  it  requires 
great  intestinal  fortitude.  Not  that  I 
should  be  the  barometer,  but  quite 
truthfully,  I  could  never  have  made  it 
through  the  game  without  continuous 
help  from  the  clue  book  (available  sep- 
arately from  Electronic  Arts).  While  I  do 
not  hesitate  to  recommend  The  Destiny 
Knight  to  experienced  gamers,  I'm  not 
sure  that  it  is  the  product  on  which 
inexperienced  players  should  cut  their 
fantasy  teeth. 

New  Life  For  An  Old  Favorite 

I  would  be  remiss,  if,  at  this  point,  I 
failed  to  mention  that  Bard's  Tale  I: 
Tales  of  the  Unknown  is  now  available 
for  the  Apple  IlGS  for  $49.95. 

The  game  itself  is  nearly  identical  to 
the  Apple  He  version;  however,  the  GS 
adaptation  makes  use  of  the  machine's 
Macintosh-like  interface,  employing 
pull-down  menus  and  the  mouse  to  acti- 
vate commands,  and  so  on.  And,  from 
the  moment  the  program  is  booted,  it 
becomes  obvious  that  the  overwhelm- 
ing features  of  Bard's  Tale  I  for  the  Apple 
IlGS  are,  not  surprisingly,  its  graphics 
and  sound.  It  is  unquestionably  the  most 
graphically  stunning  product  that  I  have 
seen  on  any  Apple  computer. 

From  the  title  page,  when  a  full- 
screen Bard  strums  his  mandolin,  to  the 
Latin  chants  of  the  temple  monks  as 
they  heal  an  adventurer.  Bard's  Tale  1 
for  the  GS  is  one  fascinating  delight 
after  another.  Each  instrument  played 
by  the  Bard  has  its  own  sound;  each 
monster  and  character  possesses  a  dif- 
ferent form  of  animation. 

The  game  is  so  impressive  that  I 
have  begun  to  replay  Bard's  Tale  I  on 
the  GS,  even  though  I  have  completed  it 
on  the  He.  I  am  willing  to  invest  the 
time  so  I  can  discover  the  rest  of  the 
three-dimensional,  animated  delights 
in  the  GS  version. 

A  program  with  no  problems?  Not 
quite.  The  graphics  presentation  of 
Bard's  Tale  I  for  the  Apple  IlGS  is  so  good 
that  I  have  become  jaded.  Other  games 
have  lost  some  of  their  appeal  now  that  I 
have  experienced  the  capabilities  of  a  GS 
program — and  that's  a  problem. 

Bard's  Tale  II:  The  Destiny  Knight 

Electronic  Arts 
1820  Gateway  Dr. 
San  Mateo,  CA  94404 
$49.95  Apple  U-series  version 
$39.95  Commodore  64  version 
Clue  book:  $12.95 


President  Elect: 
1988  Edition     . 

Ervin  Bobo 

Requirements:  Apple  II  series  (with  a 
minimum  of  48K},  Commodore  64,  and 
IBM  PC  and  compatibles  (with  a  mini- 
mum of  256K). 

In  order  to  fully  enjoy  President  Elect, 
you  must  first  decide  what  you  want  it  to 
do  for  you.  You  could  use  it  to  find  the 
strongest  candidate  for  1988  and  place 
your  election  bets  accordingly — though 
we'll  accept  no  responsibility  for  an  up- 
set and  your  loss  of  the  rent  money. 

Students  or  hobbyists  in  political 
science  might  wish  to  use  the  program 
to  recreate  campaigns  of  the  past  28 
years;  others  may  wish  to  see  the  re- 
sults of  campaigns  that  never  were;  and 
still  others  will  want  to  test  their  own 
campaigning  skills  by  running  against 
the  computer  or  a  human  opponent. 

President  Elect  will  allow  you  to  do 
all  these  things — and  to  do  them  with 
what  we  suspect  is  more  than  reason- 
able accuracy. 

Past,  Present,  Or  Future 

To  begin  a  contest,  you  first  select  a 
presidential  election  year  between  1960 
and  1988.  Should  you  choose  the  future, 
you'll  be  asked  a  series  of  questions 
concerning  unemployment,  inflation, 
national  mood,  and  so  on — the  stuff  of 
which  all  campaigns  are  made.  For  past 
years,  these  parameters  have  already 
been  factored  in,  but  you'll  have  to  make 
other  choices,  including  Historical  or 
Ahistorical,  the  former  allowing  you  to 
place  your  own  candidates  within  the 
framework  of  real  history.  You  also 
must  choose  whether  one  of  the  candi- 
dates is  an  incumbent. 

In  an  ahistorical  simulation,  you 
are  not  bound  by  the  constraints  of 
history;  You  may  have  Hubert  Hum- 
phrey run  as  a  Republican,  Barrj'  Gold- 
water  run  as  a  liberal,  Lyndon  Johnson 
run  against  Teddy  Kennedy,  or  Gerald 
Ford  run  as  a  third-party  candidate. 
These  and  many  other  permutations 
are  possible.  Additionally,  you  can  play 
by  "name-only,"  where  you  and  a 
friend  do  the  campaigning  using  the 
candidates'  names;  or  you  can  run  cam- 
paigns as  fully  computerized  simula- 
tions in  which  your  computer  knows 
the  strengths  and  weaknesses  of  each 
candidate  and  determines  the  outcome 
of  the  match. 

The  campaign  itself  is  composed  of 
nine  turns,  each  corresponding  to  one 
of  the  nine  weeks  between  Labor  Day 
and  Election  Day.  During  each  turn, 
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candidates  do  the  usual  things  candi- 
dates do — such  as  calling  for  debates, 
spuming  invitations  to  debates,  decid- 
ing whether  or  not  to  visit  a  foreign 
country,  making  questionable  state- 
ments, and  spending  campaign  money 
(in  this  case,  spending  PAPs,  or  Politi- 
cal Action  Points). 

Each  week  begins  with  the  results 
of  the  latest  poll,  showing  what  percent 
of  the  voters  favor  each  candidate  and 
then  using  this  figure  to  determine  the 
number  of  electoral  votes  each  would 
secure  if  the  election  were  held  immedi- 
ately. Following  this  update,  there  is  a 
Current  Events  phase,  and,  if  you  are 
actively  playing  (as  opposed  to  watch- 
ing a  computer  simulation),  you'll  have 
to  decide  what  you  might  say  or  do 
about  the  poll's  results.  Next  comes  the 
week's  campaigning,  during  which 
you'll  spend  your  PAPs  where  you 
think  they'll  do  the  most  good — on  a 
national  or  regional  basis.  You'll  also 
decide  which  states  might  be  swayed 
by  a  personal  visit. 

In  playing  against  a  human  oppo- 
nent, this  part  of  the  campaign  is  kept 
secret,  each  player  using  the  computer 
long  enough  to  enter  his  or  her  deci- 
sions while  the  other  player  leaves  the 
room  for  coffee  and  doughnuts. 

This  sequence  of  plays  occurs  in 
each  of  the  nine  turns.  At  the  end  of 
each  turn,  a  map  displays  the  states 
favoring  each  candidate  and  the  states 
still  undecided  (the  only  graphics  dis- 
play in  the  game),  giving  you  a  chance 
to  formulate  strategy  for  the  next  turn. 
Should  a  debate  occur,  you'll  be 
given  a  question  which,  when  an- 
swered, will  be  rebutted  by  your  oppo- 
nent. You  do  not  have  to  be  a  scholar  to 
answer;  you  must  decide  only  how 
much  weight  to  give  the  five  possible 
responses:  Discuss  Relevant  Consider- 
ations, State  Position,  Attack  Oppo- 
nent, Kill  Time,  and  Criticize  with 
Witticisms.  Following  the  debate,  the 
media  declares  one  of  you  the  winner. 
Then,  once  the  campaign  is  over 
and  the  polls  close,  the  preliminary  re- 
sults and  updated  projections  arrive, 
much  as  they  do  on  television.  You  can 
let  this  take  its  normal  "realtime" 
course,  which  takes  a  few  hours;  or  you 
can  speed  the  results  by  a  factor  of 
ten — or  you  may  jump  to  an  immediate 
conclusion. 

In  setting  up  a  simulation,  demo- 
graphics play  an  important  role,  and 
while  we  do  not  know  the  extent  to 
which  they  are  used  (demographics  are 
as  endless  as  pi),  we  are  told  in  the 
documentation  that  there  are  different 
parameters  used  for  each  election  year. 
For  example,  Florida,  which  today  has 
21  electoral  votes,  possessed  only  10  in 
1960.  Individual  states  are  also  biased 


according  to  history,  and  such  history 
becomes  probability  when  dealing  with 
the  election  of  1988. 

Perhaps  the  most  important  factor 
is  the  political  profile  of  a  candidate — 
his  stance  on  various  issues,  his  poise 
and  magnetism,  his  ability  to  speak. 
These  things  have  been  factored  into 
President  Elect  and  seem  to  have  a  differ- 
ent meaning  in  different  election  years. 

Reagan  Versus  Kennedy 

One  of  our  tests  involved  a  fully  com- 
puterized 1988  matchup  between  Ron- 
ald Reagan  and  John  Kennedy.  Perhaps 
surprisingly  for  those  of  us  who  re- 
member the  aura  of  the  Kennedy  era, 
Reagan  not  only  won  the  single  debate 
but  also  the  election — perhaps  proving 
that  communication  is  tougher  than 
charisma, 

However,  a  similar  matchup 
against  the  temper  of  the  times  of  1960 
had  Kennedy  winning  by  a  landslide 
that  was  so  great  as  to  be  embarrassing. 
What  these  simulations  prove  is  that 
the  database  from  which  President  Elect 
works  is  both  extensive  and  accurate. 

However  the  simulation  is  used,  in 
historical  or  ahistorical  mode,  il  is  fun. 
And  it  is  helped  along  by  good  docu- 
mentation, including  a  pull-out  score 
card  (of  which  you'll  want  to  make 
copies  for  successive  campaigns)  and  a 
listing  of  recent  political  front  runners 
with  numerical  weighting  of  aspects  of 
their  personal  political  profiles. 

But  where  your  election  bet  is  con- 
cerned, it  should  be  noted  that  neither 
COMPUTE!  nor  SSI  will  advance  you 
the  money. 

President  Elect:  1988  Edition 
Strategic  Simulations 
1046  N.  Rengstorff  Ave. 
Mountain  View,  CA  9i043 
$24.95 


WHAT  IF,..     \        ■  .'  1 
Bill  Buckner  caught  Mookie  Wilson's  ground 
ball  in  the  10th  inning  of  game  6  of  the 
1986  World  Series? 

What  would  have  happened? 

You  would  ktiow  if  you  had  Pure-Stat,  the 
most  accurate  baseball  simulation  game  on 
the  market  today.  With  Pure-Stat  you're  your 
own  team  manager,  making  trades,  juggling 
lineups,  plotting  bunts,  steals,  squeeze  plays. 
You'll  compute  a  hitter's  chances  against  a 
righty  Of  a  lefty.  A  fielder's  proneness  for 
errors.  An  outfielder's  range  and  throwing 
ability. 

SO  WHAT  IF.,, 

Buckner  caught  that  ground  ball?  How  ac- 
curate would  the  computer-simulated  results  be? 

Several  New  York  area  TV  stations  used 
Pure-Stat  lo  help  them  anticipate  the  results 
of  20  playoff  and  World  Series  games  in  1986. 

Pure-Stat  scored  an  .850  average.  II  correctly 
picked  17  out  of  20  games,  using  actual 
player's  batting  averages,  stealing  percentages, 
ERAS  and  intangibles  like  fielding  range,  will- 
ingness to  make  the  sacrifice  play,  throwing 
arm  strength.  Now  you  can  pick  them  too. 

Play  Pure-Stat  by  yourself,  with  a  friend  or 
join  a  league.  You  can  also  load  Pure-Stal, 
pick  your  teams  and  watch  an  entire  season 
from  your  armchair.  And  with  the  help  of 
the  Auto-play  feature,  you  can  have  your 
computer  playing  the  rest  of  the  league's 
games  while  you  play  your  own. 

There's  even  an  optional  stadium  disk  that 
lets  you  play  in  al!  26  major  league 
stadiums. 

A  winner  of  Family  Computing's  Sports 
Game  of  the  Year  Award,  Pure-Stat  is  easy  to 
use  for  the  Little  Leaguer,  yet  powerful 
enough  lo  satisfy  the  most  serious  baseball 
statistician. 

WHAT  WOULD,., 

have  happened  if  Buckner  caught  it?  You'll 

find  out...  with  Pure-Stat. 

Compatible  with  [M  PC,  Apple  II  Series. 

Commodore  6-1,  128. 

See  Your  Local  Dealer  Or 

Software  Simulations 

959  Itflain  Street 
Stratford,  CT  06497 
(203)  377-4339 


Commodore  64,  12a  are  traOema^ks  ot  Commodore 
Elearonics,  Ud.  Apple  is  a  Irademark  ot  Aople  Com- 
puter IBM  is  a  lrademarl<  0(  IWernalional  BusiRSss 
Machines  Corporation. 


Mentor 

Keith  FerreU 

Requirements:  For  the  IBM  PC  and  com- 
patibles with  a  minimum  of  256K  and  a 
CGA  (Color  Graphics  Adaptor)  card. 

Have  you  ever  wondered  what  your  IQ 
is?  Or  have  you  finished  an  IQ  test  at 
school  or  work  and  wished  you  had  a 
chance  to  take  the  test  on  your  own 
time?  We  encounter  many  different 
types  of  psychological  tests  at  various 
points  in  our  education  and  careers,  and 
many  of  us  are  frustrated  at  their  imper- 
sonality. Now  there's  a  piece  of  soft- 
ware that  lets  you  test  your  IQ,  and 
other  psychological  performances,  on 
your  PC. 

Mentor,  the  first  product  released 
by  Heuristic  Research,  is  a  disk  packed 
with  more  than  50  separate  tests  aimed 
at  examining  and  improving  your  mem- 
ory, reaction  time  and  coordination,  per- 
ception and  balance,  aural  pitch,  as  well 
as  your  general  mathematical  and  verbal 
intelligence.  Thrown  in  for  good  mea- 
sure is  a  biorhythm  chart. 

The  program  contains  instructions, 
information,  and  tutorials  on  disk.  Men- 
tor's manual  announces  itself  as  the 
smallest  set  of  instructions  in  the  world, 
and  it  just  may  be.  Simply  insert  the 
disk  in  drive  A;,  type  mentor,  and  begin. 
Mentor  will  run  on  monochrome  conn- 
posite  monitors,  however,  a  color 
graphics  adaptor  (CGA)  is  required.  Its 
setup  features  include  user-specified 
resolution,  text  size,  and  colors. 

Start  Testing 

The  first  thing  you  encounter  after 
booting  the  program  and  supplying  it 
with  your  name  and  birth  date,  is  a 
menu  offering  your  choice  of  psycho- 
logical tests,  IQ  tests,  biorhythm,  and 
information  about  the  program  and 
screen  setup  options. 

The  psychological  test  section  of- 
fers further  choices.  You  may  be  tested 
for  memory,  reaction,  coordination,  or 
general  perception.  In  turn,  each  of 
these  options  narrows  the  parameters 
of  your  test  even  more.  For  example,  as 
well  as  offering  three  difficulty  levels, 
the  memory  test  section  offers  you  the 
option  of  being  tested  for  memory  of 
color  patterns,  sound  and  pitch,  num- 
bers, or  letters. 

Mentor  suggests  that  you  run  the 
program's  introduction  before  under- 
taking any  of  the  actual  tests,  and  that's 
good  advice.  Part  of  doing  well  on  IQ 
and  similar  tests  is  knowing  how  the 
tests  work;  Mentor  gives  you  a  glimpse 
of  its  operations  before  you  start  test- 
ing. Forewarned  is  forearmed. 


It's  also  advisable  to  start  each  test- 
ing sequence  at  the  easiest  level,  how- 
ever confident  you  are  of  your  abilities. 
When  testing  your  memory  of  numbers, 
for  example,  the  program  flashes  seven 
digits,  then  prompts  you  to  enter  them 
in  the  correct  order.  At  the  easiest  level, 
you  see  the  digits  for  one  second;  at  the 
most  advanced  level,  the  numbers  are 
onscreen  for  only  a  quarter  of  a  second. 

Once  the  digits  disappear,  it's  up  to 
you  to  enter  them,  in  the  correct  se- 
quence, as  quickly  as  you  can.  Mentor 
lets  you  know  whether  you  are  right  or 
wrong  and  how  long  your  attempt  took. 
It  also  keeps  track  (on  the  screen)  of  the 
number  of  correct  attempts  you've 
made,  as  well  as  showing  how  many  of 
the  digits  you  got  right  for  each  ex- 
ample. The  disk  includes  similar  tests 
for  letters,  color,  and  sound. 

IQ  Tests 

Mentor's  general  IQ  tests  are  as  tough 
and  thorough  as  any  I  care  to  attempt, 
A  typical  test  gives  you  50  questions  to 
be  answered  in  40  minutes.  The  ques- 
tions and  exercises  stretch  your  verbal, 
numerical,  and  visual  skills  and  percep- 
tion. In  addition  to  general  IQ  tests, 
there  are  specific  verbal  and  numerical 
ability  tests. 

Verbal  questions  take  several 
forms.  One  question  might  ask  you  to 
enter  the  word  that  matches  both  of  two 
dissimilar  words  outside  the  parenthe- 
ses; an  example  is:  ARROW  ( ) 

FASTENER.  That  is  one  of  the  simpler 
questions  (the  answer  is  bolt).  Other 
verbal  ability  tests  request  that  you 
complete  a  sequence  of  letters  or  supply 
a  word  based  on  others  in  a  group. 

Numerical  ability  tests  likewise 
take  several  forms.  You  are  asked  to 
provide  the  right  number  for  a  se- 
quence or  to  fill  in  a  blank  in  a  relation 
of  numbers. 

Readers  who  have  taken  IQ  tests 
will  recall  the  sections  where  a  series  of 
similar  geometric  shapes  are  presented, 
with  the  final  space  blank,  to  be  filled  in 
with  the  proper  selection.  That  type  of 
test,  too,  is  included  in  Mentor.  As  the 
requirement  of  a  CGA  card  implies,  the 
program's  graphics  are  excellent,  with 
detailed  resolution  that  gives  you  a  fair 
chance  to  study  the  relationships 
among  the  figures  so  you  may  select  the 
correct  answer. 

When  your  40  minutes  are  up,  the 
program  evaluates  your  performance, 
presents  you  with  its  measurement  of 
your  IQ,  and  offers  you  the  chance  to  go 
through  the  information  section  once 
more.  It's  worthwhile  to  read  through 
the  information  more  than  once — this 
section  gives  good,  general  advice  on 
the  nature  of  psychological  tests.  In 
fact,  I'd  like  to  see  the  information  sec- 


tion expanded,  as  it  would  be  nice  to 
learn  more  about  the  nonstandard  tests 
that  Mentor  includes. 

Think  Fast! 

Mentor  also  provides  reaction,  percep- 
tion, and  coordination  tests.  You  can 
check  your  eye-hand,  ear-hand,  and 
eye-ear-hand  coordination.  My  favorite 
from  this  section  of  the  program  pre- 
sents you  with  a  pattern  of  dots  scat- 
tered across  the  screen,  challenging  you 
to  position  the  cursor  at  the  center  of 
the  pattern.  It's  harder  than  it  sounds, 
and  much  harder  than  it  looks. 

Other  general  psychological  tests 
include  perception  of  quantities.  In  one 
timed  test,  you  are  given  a  few  seconds 
to  ascertain  the  number  of  dots  on  the 
screen.  As  with  all  of  the  other  tests  in 
Mentor,  these  are  challenging  and 
informative. 

Just  for  fun,  the  program  also  in- 
cludes a  biorhythm  generation  chart 
that  produces  a  graphics  representation 
of  your  emotional,  intellectual,  and 
physical  cycles  over  the  month  of  your 
choice.  There  is  also  an  informarion 
section  that  discusses,  without  endors- 
ing, biorhythm. 

Mentor  is  an  impressive  package. 
Its  on-disk  documentation  suggests  that 
it  can  be  used  for  self-improvement,  for 
monitoring  the  intellectual  develop- 
ment of  children,  and  for  preparation 
for  actual  psychological  tests.  All  true, 
but  the  program  can  also  serve  as  an 
effective  mental  "exerciser,"  just  the 
sort  of  thing  to  sharpen  thinking  skills 
and  hone  analytical  instincts  and  abili- 
ties. The  program  is  packed  with  so 
many  tests  and  configurations  of  tests 
that  it  should  be  hard  to  exhaust  its 
challenges. 

If  you  are  curious  about  your  intel- 
lectual and  psychological  abilities. 
Mentor  is  an  affordable,  provocative, 
and  entertaining  way  to  learn  about 
yourself  while  improving  your  ability 
to  succeed  at  such  tests. 

Mentor;  Psychometric  Software 

Heuristic  Research 

3112-A  West  Cuthberf  Ave.  ' 

Midland,  TX  79701 

$49.95 
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Marbles 


Stephen  Stout 


Act  quickly—and  don't  panic—in 
this  clever  arcade-style  game  for  the 
Atari,  Cortimodore  64,  Amiga,  Apple 
II,  and  IBM  PC/PCjr  and  compati- 
bles. The  Atari,  64,  and  Amiga  ver- 
sions each  require  a  joystick.  The 
Apple  version  requires  paddles.  The 
IBM  PC/PCjr  version  requires  BA- 
SICA  or  GW-BASIC  and  a  color/gra- 
phics adapter  for  the  PC  and 
compatibles,  and  Cartridge  BASIC  for 
the  PCjr.  The  Apple  version  runs  un- 
der DOS  3.3  or  ProDOS. 


In  two  weeks  the  Statewide  Mar- 
bles Championship  will  be  held  in 
Localsvilie..  You've  been  practicing 
for  nearly  a  year,  and  now,  at  the 
last  minute,  you  find  you've  lost 
your  favorite  marble.  You're  going 
to  have  to  collect  every  marble  you 
can  to  find  one  as  special  as  the  one 
you  lost. 

"Marbles"  is  a  hypnotic  arcade- 
style  game  in  which  you  try  to  catch 
marbles  in  a  bucket.  Originally  writ- 
ten for  the  Atari  eight-bit  computer 
series,  we  have  added  versions  for 
the  Commodore  64,  PC/PCjr  and 
compatibles,  Apple,  and  Amiga 
computers.  Each  version  of  the 
game  is  unique,  so  be  sure  to  read 
the  instructions  for  your  computer 
for  the  details  of  the  game. 

Atari  400,  800.  XL, 
And  XE  Version 

The  Atari  version  of  Marbles  (Pro- 
gram 1)  is  written  entirely  in 
BASIC.  Type  it  in  and  save  it  to  tape 


or  disk.  The  program  listing  con- 
tains many  special  graphics  charac- 
ters. Refer  to  the  "Guide  To  Typing 
In  Programs"  article  elsewhere  in 
this  issue  for  details  on  typing  these 
characters.  To  play  the  game,  sim- 
ply load  and  run  the  program. 

Use  a  joystick  plugged  into 
port  1  to  control  the  buckets.  Press 
fire  to  start  the  game.  The  marbles 
fall,  one  at  a  time,  down  the  pipes. 
When  a  marble  comes  to  an  inter- 
section, it  may  go  in  any  direction. 

There  are  seven  screens  in  this 
version  of  the  game.  Your  task  is  to 
catch  20  marbles  on  each  screen 
without  dropping  even  one.  If  you 
do  drop  a  marble,  you  must  start 
over  with  the  same  screen.  To  fur- 
ther complicate  matters,  you  must 
catch  red  marbles  only  in  the  red 
bucket  and  blue  marbles  only  in  the 
blue  bucket.  Catching  a  marble  in 
the  wrong  bucket  counts  as  a  miss. 

The  game  ends  when  you've 
managed  to  catch  all  the  marbles  on 
all  seven  screens. 

Commodore  64  Version 

This  version  of  Marbles  (Program 
2)  is  written  in  machine  language, 
so  you'll  need  to  type  it  in  using  the 
64  version  of  "MLX,"  the  machine 
language  entry  program  found  else- 
where in  this  issue.  Be  sure  you're 
familiar  with  MLX  before  you  begin 
typing  in  Marbles.  When  MLX  asks 
for  starting  and  ending  addresses, 
respond  with  the  following: 

Starting  address:     OSOl 
Ending  address:      1500 


"Marbles,"  a  challengitig  action  game 
for  the  Atari  400,  800,  XL,  and  XE. 


The  Commodore  64  version  of 
"Marbles." 


Type  in  the  data,  and  be  sure  to 
save  a  copy  to  tape  or  disk  before 
leaving  MLX,  Although  the  pro- 
gram is  in  machine  language,  it  can 
be  loaded  and  run  like  a  BASIC 
program.  When  you're  ready  to 
plav  the  game,  simply  load  it  and 
type  RUN. 
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A  paddle  is  used  to  coTttrol  the  bucket  in 
the  Apple  11  version  of  "Marbles." 


The  Amiga  version  of  "Marbles" 
features  random  mazes. 


"Marbles"  for  the  IBM  PC/PCjr. 


Use  a  joystick  plugged  into 
port  2  to  control  a  bucket  at  the 
bottom  of  the  screen.  The  marbles 
in  this  game  follow  the  arrows  that 
occupy  the  intersections  of  the 
pipes.  Press  fire  to  change  the  direc- 
tion in  which  the  arrows  point,  (The 
arrows  move  clockwise.) 

A  feature  unique  to  this  version 
of  the  game  is  the  gremlin,  which  is 
created  whenever  two  different  col- 
ored marbles  collide.  (Both  marbles 
are  destroyed  when  the  gremlin  is 
created.)  If  a  gremlin  collides  with  a 
marble,  both  are  destroyed. 

As  gremlins  travel  around  the 
maze,  they  sometimes  change  the 
direction  o'f  the  arrows  they  cross. 

You  advance  to  the  next  screen 
(there  are  a  total  of  nine)  by  scoring 
1000  points.  Each  ball  you  catch  is 
worth  five  points.  This  value  in- 
creases whenever  a  gremlin  drops 
through.  If  you  catch  a  gremlin,  the 
ball  value  goes  back  to  five.  Each 
screen  allows  you  to  miss  a  certain 
number  of  marbles  (displayed  on 
the  screen  as  passes).  If  you  drop  any 
more  than  the  limit,  the  game  ends. 

Apple  II  Version 

Marbles  for  the  Apple  (Program  3) 
works  on  any  Apple  Il-series  com- 
puter, under  either  DOS  3,3  or  Pro- 
DOS,  A  pair  of  paddles  is  required. 
Because  the  program  is  written  en- 
tirely in  machine  language,  you'll 
need  to  type  it  in  using  the  Apple 
version  of  "MLX."  When  MLX  asks 
for  a  starting  and  an  ending  ad- 
dress, respond  with  these  values: 


STARTING  ADDRESS? 
ENDING  ADDRESS? 


2000 
2A17 


Type  in  the  data,  and  be  sure  to 
save  a  copy  to  disk  before  leaving 
MLX.  When  you're  ready  to  play 


Marbles,  enter  BRUN  filename, 
where  filename  is  the  name  you 
used  for  the  Marbles  program. 

This  version  of  Marbles  can  be 
played  as  either  a  one-  or  two-player 
game.  Exactly  40  marbles  drop  on 
each  level.  To  make  it  to  the  next 
level,  you  must  catch  at  least  20  of 
the  marbles.  If  you  do  not  advance 
to  the  next  level,  the  game  ends. 
Use  the  paddle  to  move  the  bucket. 
When  you  play  the  two-player 
game,  players  alternate  turns. 
When  one  fails  to  advance,  the  oth- 
er keeps  playing. 

When  marbles  drop  into  the 
maze,  they  appear  as  asterisks  (*). 
When  an  asterisk  travels  over  a  dot, 
it  turns  into  an  at  sign  ((a))  and  the 
dot  disappears.  You  get  points  only 
for  the  latter  type  of  marbles — one 
point  for  each  dot  the  marble  trav- 
els over.  Each  intersection  has  an 
arrow  that  determines  the  direction 
in  which  the  marbles  travel.  Press 
the  paddle  button  to  change  the 
direction  of  all  the  arrows  on  the 
screen.  The  arrows  move  clockwise. 
(Note;  On  Apple  II  and  I!  +  models, 
alphabetic  characters  will  appear  in 
place  of  the  arrows  and  buckets. 
This  does  not  affect  the  operation  of 
the  game.) 

Press  the  space  bar  to  pause 
the  game.  Press  it  again  to  resume 
play. 

Amiga  Version 

The  Amiga  version  of  Marbles  (Pro- 
gram 4)  is  written  in  BASIC.  Type  it 
in  and  save  it  to  disk.  To  play  the 
game,  simply  load  and  run  the 
program. 

To  play  Marbles,  you  must 
have  a  Workbench  1,1  disk  or  the 
most  recent  version  of  Workbench 


1.2.  The  first  release  of  1.2  does  not 
properly  allocate  sprites  6  and  7. 

A  joystick  plugged  into  port  1 
controls  the  buckets  at  the  bottom  of 
the  screen.  You  must  catch  the  red 
marbles  in  the  red  bucket  and  the 
blue  marbles  in  the  blue  bucket.  The 
arrows  at  the  intersections  of  the 
pipes  control  the  flow  of  marbles. 
Press  the  fire  button  to  change  the 
direction  of  all  the  arrows  on  the 
screen.  The  arrows  move  counter- 
clockwise. 

This  version  of  Marbles  can  be 
played  by  up  to  five  players.  The 
one-player  game  starts  with  three 
marbles  on  the  screen  at  once.  After 
every  ten  points,  another  marble  is 
added  until  there  are  six  marbles  on 
the  screen  at  once.  The  game  ends 
when  40  marbles  have  been  caught. 
Your  score  is  the  percentage  of  mar- 
bles you  caught. 

In  the  multiplayer  game  (two 
to  five  players),  all  contestants  play 
the  same  level.  After  each  has  had  a 
turn,  the  player  with  the  lowest 
score  is  dropped  from  the  game. 
When  only  one  player  remains,  he 
or  she  is  declared  the  winner.  If  two 
or  more  players  tie  for  low  score, 
the  level  is  played  again. 

IBM  PC/PCjr  Version 

This  version  of  the  game  (Program 
5)  has  the  same  rules  as  the  Amiga 
version  (described  above),  but  there 
is  only  one  bucket.  However,  you 
must  change  the  color  of  the  bucket 
to  match  the  color  of  the  ball  you're 
trying  to  catch.  Use  the  cursor  keys 
to  move  the  bucket  left  and  right. 
The  cursor-up  key  changes  the 
color  of  the  bucket.  Press  the  space 
bar  to  change  the  directions  of  all 
the  arrows  on  the  screen. 
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For  Instructions  on  entering  these  programs, 
pleas©  refer  to  "COMPUTE  I's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  Issue. 

Program  1 :  Atari  400,  800, 
XL,  and  XE  Marbles 

m   1  REM  COPYRIGHT  1987   COM 
PUTE!  PUBLICATIONS,   INC 
ALL  RIGHTS  RESERVED. 
SB  10  GOTO  1510 
FL  20  POKE  77,  0 

3E  30  ST  =  STICK  (0)  :  X  =  X-(- (  <ST  =  6 
OR  ST=7  OR  ST=5)-(ST= 
1 1  OR  ST=9  OR  ST=10) ) » 
8 
eS  40  IF  X<12  THEN  X  =  12 
1050  IF  X>1'?6  THEN  X  =  196 
KE  60  POKE  53248,  XiPDKE  5324 

9, X+24 
flE  70  IX  =  S6N (XX  (L>-MX>  :  IY  =  S6 
N (YY (L> -MY) : IF  IX=0  AN 
D  IY=0  THEN  L=L+1:B0TD 
70 
6S  B0  POSITION  MX, MY:?  #6;" 
"!MX=MX+IX:MY=MY+IY:PO 
SITIDN  MX, MY:?  tt6;ri* 
ffi90  SOUND  0, 0, 12, 15:S0UND 

0,0,0,0 
CP  100  IF  MY  =  19  THEN  120 
CN  1  10  GOTO  20 

CN  120  IF  M*="E"  AND  PEEK{53 
252)<>0  OR  M*="E"  AND 

PEEK<53253)<>0  THEN 
190 
FO  130  FOR  1  =  15  TO  0  STEP  -1 
:SOUND  0,0,0, IsFOR  D= 
1  TO  3S:NEXT  DsPOKE  7 
09, PEEK (20) :NEXT  I 
CP  140  POKE  709,6:  IF  SCDRE  =  0 

THEN  170 
HE  150  FOR  I=SCDRE  TO  1  STEP 
-1:S0UND  0,1+100,10, 
15:P0SITIDN  1-1,1:?  # 
b;"     ■• 
IE  160  SOUND  0,0,0,0:FOR  D=l 
TO  35:NEXT  D:NEXT  I: 
SCORE=0 
NF170  POSITION  MX, MY:?  #6;" 

II 

GK  160  BDTO  260 

LL  190  SCaRE  =  SCORE  +  l  iPQSITia 
N  SCORE-1,1:?  #6;M«:F 
DR  1=15  TD  0  STEP  -1: 
SOUND  0, 100, 10, I 

IC  200  FOR  D=l  TD  5:NEXT  D:N 
EXT  I 

Hfl210  POSITION  MX, MY:?  #6;" 

■J 

W 220  IF  SCQRE=20  AND  SCREE 
N=7  THEN  410 


6£  230 


SJ  340 


SI  230 
m  260 


[6  270 


LC  280 

El  290 

It!  300 

HC  310 

K  320 

KH  330 

Df,  340 


IF  S 

1  =  25 
DUND 
:  SOU 
IF  S 
1  =  1 

0  4  9 
GOTO 
POSI 
C20 
FDR 
SC(X 
<Y«( 
ST  =  S 
7>  -  ( 
IF  X 
IF  X 
POKE 
49,  X 
IF  X 
IF  X 

1  )  =X 
D=IN 


CDRE  = 

0  TO 
0,  I, 

NO  0, 
CDRE  = 
TD  25 
0 

260 
TION 
SPACE 

1  =  1  T 
«  (  I,  I 
1,1)1 
TICK  ( 
ST=1  1 
<12  T 
M96 

5324 
+  24 
X  (  I  )  < 
X  (  I  )  = 
X  (  I-l 
T  (RND 


20  THEN  FOR 

50  STEP  -1:S 

10, 15: NEXT  1 

0,0,0 

20  THEN  FOR 

0:NEXT  IrGOT 


0,2:?  *6; "  - 
S3  ■■ 

10:  XX  <  1 ) =A 


la  i  r.  r.  i  1  1  =h 
) ! YY ( I) =ASC 

0) : X=X+ ( (ST= 
)  )  ts 

HEN  X=12 
THEN  X«196 
8,X:PQKE  532 

100  THEN  350 
200  THEN  XX < 
) : GOTO  350 
(0)*{XX(I)-1 


a   350 

LD  360 


I  370 


CH  3B0 

(16  390 

CP  400 

IIP  410 

JL  420 

KL  430 

Ee  440 

HH  450 

pa  460 

JP470 

CI  4B0 

LS  490 

FH  500 

SP  510 

BB  520 

AD  530 
KF  540 
111  550 


IE  560 
18  570 


ftH5B0 

JF590 

PN6  00 

CS  610 

m  6  20 

BB630 
E6  6  40 

m   650 

SE  660 
(If  670 

a  680 

(16  690 

LO  700 

HP  710 

KA  720 

AS  730 
K  740 

KI  750 


00)  )  :  XX  (  I  )-A5C:  (RS(  <I- 

I)tl0+D+1 ) ) 

NEXT  I 

D=INT(RN0(0) »2>  sM»="& 

"slF  D-1  THEN  M»-"e" 

L=2:MX=XX ( 1) : MY=YY C 1 ) 

:POKE  53278,0! IF  M»=" 

U"     THEN  POSITION  HX-1 

,2:7  #6;"[1IBE" 

IF  M*="E"  THEN  PDSITI 

ON  MX-l,2s?  tt6;  "Taar- 

POSITION  MX, MY:?  #6;M 

« 

GOTO  20 

POSITION  3,101?  #6;"E 

POSITION    3,11:?    #6;"E 

LiMfMiflJV         E" 
POSITION    3,12:?    #6;"il 
{12    SPACESJC" 
POSITION    3,13;?    #6;"E 
liH  ^>  llll    I    I    lli' 
POSITION    3,14:?    #6;"C 
Liiiiininiitiililililiii." 

FOR  1=50  TO  250;SDUND 
0,1,  10,  15:NEXT  I  :  SOU 
ND  0,0,0,0 

POKE  77,0:IF  STRIG(0) 
-I  THEN  470 
POKE  53248,0: POKE  532 
49, 0: RUN 

SCREEN=SCREEN+1 

POKE  559, 0: POSITION  0 

,0:?  #65 " {CLEAR> " ;POS 

ITION  6,0:?  #6;"SCREe 

N  ";SCREEN:POSITION  0 

>3 

READ  I: JF  I=-l  THEN  5 

30 

READ  S«:FOR  D=l  TD  I: 

?  #65S*iNEXT  D:GDTO  5 

10 

READ  X«, Y*:R«=" {, > " : R 

*  (  100)  ='•<,>  "  :R*  (2)=R* 

READ  I : IF  I=-l  THEN  5 

60 

READ  S*:R» ( ( I-l ) *10+1 

, < I-l) *10+l+9)=S«seOT 

0  540 

SCORE=0 

X-10a5PDKE  53248, X:PO 

KE  53249, X+24:P0KE  53 

256,  1 : POKE  532S7,  1  :  PQ 

KE  559,46:Q0T0  260 

DATA  4,  X  X 

DATA  1,  X  xxxxxxxxxxx 

X  X  XX 

DATA  1,  xC15  SPACESJx 

DATA  1,  XXX  XXX  xxx  x 

XX   X 

DATA  9, {3  SPACES>x  x 

X   X   X   X   X   X 

DATA  -1 

DATA  C2  BJhCAAAAAA, 

tC>t2  HJCSIAAAAAA 

DATA  3,  {D>  CH> {LJ  CP> 

C6  ,  > 

DATA  -1 

DATA  2,(16  SPACESJx  x 

DATA  1,{5  SPACESJxxxx 

XXXXXXXX   X 

DATA  1, iS  SPACE3>x 

C12  SPACEBJx 

DATA  1 , C5  SPACES>x  x 

KX   X   XXXXX 

DATA  1 , t5  SPACES>x  x 

XX   X   X 

DATA  1,  XXXXX  X  XX  X 

XXXXX 

DATA  1  , 
DATA  1 , 

XX  X 
DATA  6,  X  XX  X 
C6  SPACESJx  XX  X 


x{16  3PACES>x 
X  XX  xxxxxxxx 


KE  760 
B6  770 

n  780 

PC  790 

BA  B00 
PB  810 

LB  820 

(£830 

in  840 

NF  850 

KF  860 

AB  870 
LN  880 

BJ  890 
KH  900 

MF  910 

EP  920 

BE  930 
DH  940 

BK950 

(\e960 
LH970 

A!  980 
M  990 

CI  1000 
NO  1  0  1  0 

IL  1020 
BP  1030 


DATA  1,  X  XX  xxxxxxxx 

XX  X 
DATA  -1 

DATA     f2    Q>h(IJi[r<:4     ,}, 
CCJ{2    F}t2    J>{SJt4     ,> 
DATA     3, {F>{H>CK> {«> 
C6     ,  >,5,  {BJ  {EKNJ  {QJ 
{6     ,> 
DATA     -1 

DATA  2, {5  SPACESJx  x 
{4  SPACESJx  x 
DATA  1,{3  SPACESJxxx 
xxxxxx  xxx 
DATA  I, {3  SPACESJx 
{12  SPACESJx 
DATA  1,{3  SPACESJx  XX 
X  XX  xxx  X 

DATA  2, {3  SPACESJx  X 
xxxxxx 

DATA  1,  xxx  xxx  xx  xx 
X  xxx 

DATA  1,  x{16  SPACESJx 
DATA  7,  X  XX  XX  xx  xx 

XX   X 

DATA  -i 

DATA  f[ri!IJEI{4  ,J,{CJ 

12  FJ{2  KJCSJ{4  ,J 

DATA  1,{FJ{M}{8  ,J,3, 

{D}{HJ{K}{0}{6  ,} 

DATA  5, {BJ CE> {HJtKJ 

{NJ{DI{4  ,J 

DATA  -1 

DATA  4,  X  X 

{3  SPACESJx  X 

{6  SPACESJx  X 


DATA 
XXX  X 
DATA 
DATA 

XX   X 

DATA 
DATA 
XX  XX 
DATA 
DATA 
X  XX 
DATA 
DATA 
{CJ{2 


XXXXX   XXXXX 


x{16  SPACESJx 
X  XX  XX  XX  XX 


x{16  SPACESJx 
XX  xxx  xxxx  X 


SPACESJx 

XX   XX   X 


1,  x{16 
6,  X  XX 

X 

-1 

gB:j[ih[LjE:{2   ,j 

HJ{2  JJ{2  LJ 


{SJC2  ,> 
1L1040  DATA  1,  {B>{HJ  {Q>  {7 
,3, {BJtEJCHJ {KJCNJ 
{Q}{4  ,} 


CP  1050 


DP  1060 
OA  1070 


DA  1080 
DD  1090 


CJ  1  100 

Kit  1  1  1  0 


CL  1  120 
DA  1  130 


DD  1  140 
CB  1  150 


HI  1  160 

HL  117  0 

HO  1  180 

IB  1  190 

DL  1200 

Hit  1210 

Cn  1220 


DATA 
{6  , 
{KJ{ 
DATA 
DATA 

X   XX 

DATA 
DATA 
X  XX 
DATA 
DATA 

X   XX 

DATA 
DATA 

X   XX 

DATA 
DATA 
{CJ  { 
{SJ  { 
DATA 
{NJ  { 
DATA 
{NJ  { 
DATA 
CNJ  { 
DATA 
{NJ  { 
DATA 
DATA 

X   XX 

DATA 


5,  {CJ  {QJ  {LJ  {PJ 
J , 7, {B}{EJ{HJ 
NJ{E!J{4  ,J 

-1 

2,  X  XX  XX  XX  X 

X 

1,  x{16  SPACESJx 

3,  X  XX  XX  XX  X 

X 

1,  x{16  SPACESJx 
3,  X  XX  XX  XX  X 

X 

1,  x{16  SPACESJx 
5,  X  XX  XX  XX  X 

X 

-1 

j[rj[rj[ijG:{2  ,>, 

2  EJ{2  IJC2  M> 
2  ,i 

1  ,  {BJ {EJ  {HJ {KJ 
QJ {4  , J 

3, {B> {EJ {HJ {KJ 
Q> {4  ,  > 

5,  <fB}{EJ  {H>  {KJ 
I3J{4  ,J 

7,  {BJ {EJ  {HJ {KJ 
QJ {4  , J 

-1 

2,  X  XX  XX  XX  X 

X 

1,  x{16  SPACESJx 
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mre  Won't  Be  UNDERSOLD 

Isl  In  Price,  Isl  In  Support,  Isl  In  Warranty 

15  Pay  Free  Triai  •  90  Poy  Immediate  Replacement  Policy  •  Free  Catalogs 

Call  before  you  order,  our  prices  may  be  lovwer  *  All  sale  prices  expire  10-31-87 


80  Column  Printer*  SVi"  Letter  Siie 


Big  Blue  Printer 


Dot  Matrix 

Heat  Transfer 

Upper  Case 

Lower  Case 

Underline 

Enlarged 

Affordable 

Plus  More 


No  One  Sells  This 
Printer  For  Less! 


$ale$2Q 

List  $199  ^B    ^ 


95 


(Add  $7.50  Shipping') 


This  printer  was  made  by  Canon®  for  IBM.  The  Big  Blue  printer  comes  ready  to  hook  up  to  the  serial  port  of  the 
IBM®  PC  jr,  XT,  AT  &  Compatibles.  Plus  with  our  low  cost  adapter  cables  you  can  connect  this  printer  to  the 
Apple®  II,  lie,  lie  and  Compatibles,  Atari®  computers,  Commodore®  64,  128,  SX-64,  Vic  20,  Plus  4,  and  more. 


RS-232  Adapter  -  Adapter  for  IBM®  PC,  AT,  XT  &  Appie®  II  series  RS-232  port.  (Specify  male  or  female).  . .  List  S49.95  Sale  $19.95 

AppleCg)  lie  &  Laser  128  Interface  -  With  printer  driver  program  for  graphics  and  text List  $49.95  Sale  $19.95 

Intelligent  Commodore®  Interface  -  Prints  graphics  and  text.  Use  Print  Shop  and  more List  $49.95  Sale  $19.95 

Intelligent  Atari®  Interface  -  (Excludes  Atari  I2CI0)  Prints  graphics  and  text.  Use  Print  Shop  and  more List  $49.95  Sale  $19.95 

Paper  (2  Rolls) List  $19.95  Sale  $  5.95    Single  Sheet  Paper  (Qty.  500) List  $29.95  Sale  $12.95 

IBM.  Appk,  Canoo,  Conunadore,  Aunft  Luerin  re^islered  tndoiurb  of  Jnlenulioful  BusiJKU  MKhuw,  Apple  Computtr.  Ctaon  lIK,  Commodoit  Busincti  SUdiines.  AUri  Inc.  k  VidcQTcdunlOfiaRapectmty. 


Hi-Speed  ( 1 60- 1 80  CPS)  Printer 


NLQ-180  Printer       Near  Letter 

Quality 


**  Lifetime 
Warranty 


No  One  Sells  This 
Printer  For  Less! 


Sale$ 


199 


List  $499 

(Add  $10.00  Shipping*) 


•  Near  Letter  Quality  Selectable  From  Front  Panel  Controls  •  High  Speed  Dot  Matrix 

•  Letter  Quality  Modes  •  8K  Buffer  frees  up  computer  4-times  faster  •  Super  Graphics 

•  Pica,  Elite,  Italics,  Condensed  •  Business  or  Personal  •  Tractor/Friction  •  15  Day  Free  Trial 
•  **  Lifetime  Warranty  on  Print  Head  •  6  Month  Immediate  Replacement  Policy 


INTERFACES 


IBM  $24.95    Apple  II  $44.95    Laser  128  $19.95    Commodore  $29.95    Atari  $39.95    Macintosh  $49.95 


(A  Division  of  PROTEQO) 

22292  N.  Pepper  Rd.,  Barrington,  IL.  60010 

312/38a-5050  or  312/38:1-5244 

We  Love  Our  Custoiners 


*  llllnoli  rMld«>t>  odd  6'/i%  Kiln  tax.  All  ordcn  mull  b*  In  U.S.  Dollon. 
W*  ihip  fo  oil  polnli  In  Ih*  U.S..  CANADA,  PUERTO  RICO  t  APO-FPO. 
PI*OM  coll  for  chflrgn  ovtiid*  contlnantol  U.S.  or  C.O.D.  MAIL  OMNKS 
•tkIo**  co»hl«r  dwk,  morwy  ordw  or  pvrtonot  ch*d(.  Allow  14  day* 
dtllvvfy,  3  to  7  for  phono  ordon  and  1  doy  oxprM*  rriQll.  Prioo*  and 
ovollablllly  wbjoct  to  dnnga  without  nelk*.  (Monitor*  ortfy  ihtppad  hi 

»min«,taius)  vi$A-MASTIRCARD-CO.D. 


We  Won't  Be  UNDERSOLD 

15  Day  Free  Trial  •  90  Pay  Immediote  Replocement  Policy  •  Free  Catalogs 

Call  before  you  order,  our  prices  may  be  lo^er  •  Sale  prices  expire  10-31-87 


Complete  Apple®  I  Professional  IBM®  XT 
Compatible  System  I  Compatible  System 

Computer,  Drive,  Monitor,  Printer  &  Software  I  Computer,  Drive,  Monitor,  Printer  &  Software 

Sale  Price    ^^^  .^iispekU       jm.     CqIo  Price 

*"*'^   ■    ■  "^^  SopHonY^      XNfcQ  Printer^  2II|  *#MI^   ■    I  IVW 

^  ^  ^k. ^k. r- v^^    ^     «"<»     <^        ^  h.  m    ^  ^k 

S  #H  ^^k  W^  f^^    *^  ^<f  Color  Monitor g-^,. ■  V  ^^      MM  mM 


List$1228     (Add  $35.00  shipping.'] 

*  Laser  12tK  Computer 

Video,  porollel  &  seriol  ports  included 
Runs  virtually  all  Apple  ll/llc/lte  software 

•  HI  Ret  12"  Monochrome  Monitor 

•  Big  Blue  8V3"  Printer  with  interface  and  paper 

*  Software  Poclcage:  word  processor, 

spreadsheet  &  data  entry 

Appt*®  it  1K«  r«gl«tvr*d  frodamark  of  AppI*  Computan  Inc. 


No  One  Sells 

These  Systems 

For  Less! 


List  $2495     (Add  $35.00  shipping. ') 

^*  4.77/8  MHz  /  S12K  Super  Turbo  XT  Computer 

Clock/calendar;  Parallel,  serial  and  game  ports 

•  MS  DOS  3.2  &  G.W.  Boiic  Included 
k*  Hi-Res  12"  Monochrome  Monitor 

*  Big  Blue  9Vi"  Printer  with  interface  ond  paper 
^*  Software  Package:  word  processor, 

spreadsheet  &  data  base 

IBM®  li  1h«  r«giitar*d  trcxtcmark  of  Inlarnotlonal  tu%\nm**  Moctlln*f .  tnc. 


Complete  C-64  System 

Computer,  Drive,  Monitor  &  Printer 

Sale  Price 

^359 

list  $1045     (Add  $35.00  shipping.') 

All  this  for  *399  List 


•  Commodore  64  Computer 

•  Accelerator  Disk  Drive 

•  Hi-Res  12"  Monochrome  Monitor 

Monitor  Coble 

•  Big  Blue  SVi"  Printer  with 

Interface  and  2  rolls  of  paper 


'299°° 
'229°° 
•249°° 
'  19" 
*199°° 
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9S 


Total  Prices 


'1045 


90 


SVa"  Floppy  Disk  Sale 

Double-Sided  •  Double-Density 

^^^   As  Low  As 

^  *V  each 

100%  Certified 

Each  disk  is  individually  checked.  I*""  *^°°  »'i'PP'"9*' 

Lifetime  Free  Replacement  Warranty 

Against  failure  1o  perform  due  to  faulty  ftiaterials  or  workmanship. 
Automatic  Dust  Remover 

Makes  sure  dust  and  dirt  ore  constantly  removed  during  operotion. 


1  Box  of  10 $  3.90  (39«  each) 

1  Box  of  50 $14.50  (29<  each) 

1  Box  of  100 $24.00  (24«  each) 


Box  of  100  comsc  without  dimk  ■!■•¥•■. 
Pap«r  Economy  ml— v»  .  .  .  ...  5'  aach. 


Call 


C3121  382- 

For  Atari  &  Commodore 

C312]  382- 

For  IBM  &  Apple 


S 


Mall 


C0MPU1IR  DIMCT 

22292  N.  Pepper  Road 
Barrington,  IL.  6CX)10 
We  Love  Our  Customers 
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0aF9:B7 

C3 

80 

00 

18 

EE 

00 

18 

5E 

XXX 

GOTO 

1610 

0901 :A0 

00 

18 

29 

03 

AA 

B9 

D5 

SB 

DC  1200 

DATA     1,     x{16     SPACES>X 
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0909 iC8 

3D 

09 

12 

F0 

EP 

8A 

99 

07 

06  1290 

DATA    4,     X     XX     XX     XX     x 

255 
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68 
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80 

20 
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E4 
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ON  1400 
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C0 

20 
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:  64  Marbles 
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Version 
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Programmer 
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0E21tA9  35  SD  09  07  A9  02  20  B0 
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0E71:9D  00  08  A9  7F  9D  52  C8  EF 

1119:08 

SD 

31 

08 

BD 

99 

08 

8D  29 
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05  9D  00 
00  0E  BD 
ES  D0  E5 
0C  9D  00 
00  05  BD 
BD  00  0F 
E5  60  FF 
FF  E0  00 
F0  FC  00 
FF  70  FD 
80  ID  F0 
F0  BF  C0 
DF  E0  BF 
BE  FB  E0 
E0  BE  FB 
FF  E0  FF 
FF  DF  F0 
F0  FB  FE 
7B  F0  83 
33  7S  00 
F0  FB  7B 
5F  70  BF 
BE  FB  E0 
E0  FF  FF 
F7  F0  FF 
F0  00  00 
70  F7  DF 
BB  B0  BB 
80  00  00 
A0  AA  AA 


80  00  00 
F0  BF  7E 
FF  E0  80 
BF  7e  F0 
F0  B0  00 
EF  70  BD 
66  DB  60 
60  80  00 
BB  B0  80 
BD  EF  70 
E0  FF  FF 
FE  E0  FF 
FF  E0  00 
E0  FF  EE 
BB  B0  FF 
E0  00  00 
E0  EE  EE 
BB  B0  BB 
FF  FF  E0 

00  FF  BF 

01  F0  F7 
80  E0  30 
B0  BE  EF 
ED  B0  B6 
BE  FB  E0 
B0  80  00 
FB  E0  FF 
FF  FF  E0 
00  FD  FF 
FF  F0  FD 
80  00  00 
E0  BF  DF 
DF  E0  80 
BF  DF  E0 
E0  BF  DF 
DE  9C  5A 
27  27  BC 
CI  D5  C7 
A0  B0  00 
D2  C5 
00  00 
B2  A0 
10  CD  CI 
00  04  01 
C9  C7  C8 
B7  AC  A0 
D4  C5  Al 


Bl 
IB 
B0 


BF  7E 
F0  FF 
00  00 
BF  7e 
00  BD 
EF  70 
B6  DB 
00  BB 
00  00 
BD  EF 
E0  FF 
FE  E0 
FF  EE 
E0  FF 
BB  B0 
EE  EE 
E0  80 
BB  B0 
FF  FF 
F0  FF 
FD  F0 
BE  EF 
B0  80 
ED  B0 
BB  3B 
00  BE 
FF  E0 
FF  FF 
F0  FD 
FF  F0 
BF  DF 
E0  BF 
00  00 
BF  DF 
E0  62 
28  26 
F6  BE 
C8  D4 
00  01 
A0  B0 
D3  C3 
B0  B0 
D2  C2 
C3  CF 
D4  A0 
C3  CF 
A0  D0 


F0  BF 
FF  E0 
BF  7E 
F0  BF 
EF  70 
80  00 
60  B6 
BB  B0 
BD  EF 
70  FF 
FE  00 
FF  FE 
E0  FF 
80  00 
FF  BB 
E0  EE 
00  00 
BB  BB 
E0  FF 
BF  F0 
F7  FD 
B0  BE 
E0  30 
80  00 
80  BB 
FB  E0 
FF  FF 
E0  FC 
FF  F0 
FD  FF 
E0  EF 
DF  E0 
BF  DF 
E0  BF 
D6  IB 
27  28 
00  IB 
A0  A0 
D3  C3 
B0  B0 
CF  D2 
B0  00 
CC  C5 
D0  D9 
Bl  B9 
CD  D0 
D5  C2 


A3  D7 

A9  49 
A3  2B 
fi9  CB 
10  A9 
10  75 
F0  32 
D0  6F 
AC  97 
9D  79 
0D  53 
00  22 
60  8F 

04  Ea 

00  F6 
9D  8D 
FF  B9 
FF  27 

70  4C 
FC  DC 
BF  A5 
00  4E 
DF  20 
BE  4D 
E0  07 
C0  C6 
FB  D3 
F0  88 
7B  FA 
BF  3A 
F0  10 
5F  0E 
BE  SD 
E0  C4 
F7  66 
F7  BC 
70  5B 
BB  96 
AA  47 
A0  F9 

7E  D0 
FF  EF 
F0  24 
7E  46 
BD  E3 
00  57 
DB  82 
BB  51 
70  80 
FF  2D 
FF  A9 
E0  C4 
EE  61 
FF  A5 
B0  C3 
EE  7F 
BB  38 
B0  42 
80  90 
F0  51 
F0  70 
EF  A2 
B6  40 
00  F8 
BB  B5 
BE  87 
E0  CE 
00  52 
FD  IF 
F0  35 
DF  EE 
BF  42 
E0  B8 
DF  BA 
20  lA 
27  A2 
C3  55 
A0  EF 
CF  3C 
B0  BE 

CS  eA 

03  17 
D3  BA 
D2  DE 
BB  76 

D5  CD 
CC  9C 


2908: 

2910: 

2919: 

2920: 

2928: 

2930! 

2938: 

2940: 

2949: 

2950: 

29SS: 

2960: 

2968! 

2970: 

2978: 

2980: 

29B8: 

2990! 

2998: 

29A0! 

29  A8: 

29B0! 

29BB: 

29C0: 

29C8! 

29D0 

29D8 

29E0 

29Ea 

29F0 

29F8 

2A00 

2A08! 

2A10: 


C9  C3  CI 

00  05  0A 

C9  C7  CB 

D3  C5  D2 

07  CF  CE 

D4  D7  CF 

CS  D2  D3 

B2  BE  00 

CS  CC  A0 

CC  CI  D9 

A0  D0  D2 

DS  D4  D4 

A0  C2  CS 

0A  D0  CC 

B0  BA  A0 

CF  D6  C5 

CC  CI  D9 

CE  BF  A0 

00  00  00 

00  00  00 

00  00  00 

00  00  00 

00  00  00 

00  00  00 

00  00  00 

00  00  00 

00  00  00 

00  00  00 

00  00  00 

00  00  00 

00  00  00 

00  00  00 

00  00  00 

00  00  00 


D4  C9 
CI  CC 
D4  D3 
D6  CS 
CS  A0 
A0  D0 
BF  A0 
09  10 
B0  00 
C5  D2 
C5  D3 
CF  CE 
C7  C9 
CI  D9 
C7  CI 
D2  00 
A0  CI 
BC  D9 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  49 


CF  CE 
CC  A0 
A0  D2 
C4  00 
CF  D2 
CC  CI 
BC  Bl 
CC  CS 
0C  04 
A0  B0 
D3  A0 
A0  D4 
CE  00 
C5  D2 
CD  C5 
14  0B 
C7  CI 
AC  CE 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
53  4D 


D3  B4 
D2  AE 
C5  34 
0C  E2 
A0  B2 
D9  FD 
AC  A0 
D6  42 
D0  DG 
BA  46 
C2  D7 
CF  DC 
0E  88 
A0  DD 
A0  D3 

D0  eo 

C9  71 
BE  F7 
00  EA 
00  F2 
00  FA 
00  03 
00  0B 
00  13 


00 
00 


IB 
23 


00  2B 
00  33 
00  3B 
00  43 
00  4B 
00  54 
00  5C 
41  D7 


Program  4:  Amiga  Marbles 

Version  by  Tivi  Midkiff,  Editorial 
Programmer 

' Marbles* 

'Copyright  1987  COMPUTE  1  Publica 

tions,  Inc.* 

'All  Rights  Reserved.* 

CLEAR  ,25000:CLEAR  , 50000&* 

DEFINT  a-z: RANDOMIZE  TIMER* 

LIBRARY  "graphica .library"* 

DECLARE  FUNCTION  GetSprite&{)  LI 

BRARY* 

DECLARE  FUNCTION  ALLocRastert ( } 

LIBRARY* 

DIM  3c(21,40) ,pno{21,40) ,pipmap( 

21,40),arrow(24,2),xi(30) ,yi(30) 

* 

DIM  di(30) ,ti(30) , fbb(l2) ,fbr(12 

) ,w{255)* 

SCREEN  1,320,200,4, 1:WIND0W  3,,( 

0,0)-(311,186) ,16,l!WIND0W  OUTPU 

T  3* 

RESTORE  CoLors:FOR  i=0  TO  IBiREA 

D  rl,gl ,bl iPALETTE  i , r 1 , g 1 ,bl sNE 

XT* 

CoLors :* 

DATA  0,0,0,  .7,  .7,  .7,  .3,  .3, .3,  .3, 

0,-8,. 6,0,. 6,. 2,. 2,. 2, 0,0,. 8, 0,0 

,  .65* 

DATA  0,0, .5,0,0, .4, .65,0,0, .5,0, 

0,. 4, 0,0,. 25, 0,0,. 5,. 5,. 5,. 6,. 6, 

.6* 

PALETTE  22,0,0,1:PALETTE  23,0,0, 

.6:PALETTE  26,1,0,0* 

PALETTE  27, .6,0,0:PALETTE  30,0,0 

,1: PALETTE  31,0,0,-6* 

COLOR  1,5:CLS:G0SUB  InitSprites* 

ON  BREAK  GOSUB  CLoseSprites iBREA 

K  ON* 

DirDat: RESTORE  DirDatiFOR  i=0  TO 

2:READ  dx C i) , dy ( i) :NEXT: DATA  -1, 

0,0,1,1,0* 

RESTORE  LeftArroWiFOR  i=0  TO  24: 

READ  a5:arrow(i,0)=VAL("6H"+a$) : 

NEXT* 

RESTORE  DownArrowjFOR  1=0  TO  24: 

READ  a5:arrow(i,l)=VAL("«.H"+a$): 

NEXT* 

RESTORE  RightArrowsFOR  1=0  TO  24 

:READ  a$:arrow(i,2)=VAL("SLH"+a5) 


: NEXT* 

RESTORE  CupData:FOR  i=l  TO  202 iR 

EAD  a:cup5=cup$+CHR$(a) :NEXT* 

OBJECT. SHAPE  l,cup$* 

LINE (2,0) -(6,0) ,7!LINE(0,1)-(3,1 

),a:GET(0,0)-(a,l) ,fbb* 

LINE(2,0)-(6,0),ll:LINE(ejl)-(8, 

1 ) , 1 2 : GET (0,0)-(8,l), fbr* 

NewGame : COLOR  1 , 5 :CLS : PRINT  TAB ( 

12)  "Copyrigiit  19B7":* 

PRINT  TAB(7)  "COMPUTEl  Publlcatl 

ona,  Inc.":PRINT  TAB (10)  "All  Rl 

ghts  Reserved."* 

PRINT: PRINT :PRINT"Number  of  Play 

ers  (1-5)"* 

PlNura!kS="":WHILE  k$=" " :kS=INKEY 

?:WEND!lF  k?<"l"  OR  k?>"S"  THEN 

PlNum* 

CLS:numpL=VAL(k5)-l :pt3=0 :pn=num 

pL* 

FOR  i=3  TO  255iw(i)=INT(RND*255- 

128) jNEXT:WAVE  3,w* 

IF  numpL=0  THEN* 

LOCATE  23,6: PRINT"Marble3 : " : LOCA 

TE  23,25; PRINT" Rating : " : nplp=3* 

ELSE* 

LOCATE  10,l!PRINT"Enter  the  init 

ials  of  player"* 

FOR  1=0  TO  numpLtLOCATE  10, 29: PR 

INT  LEFT$(STR5(1+1) ,2) ; tlNPUT  na 

m?(i)* 

nam$ ( i ) =LEFTS (nam? ( 1 ) +SPACE? ( 3 ) , 

3):L0CATE  10,29:PRINT  SPACE?(11) 

:NEXT* 

CLS:ofst=INT(34/nuinpL)  !npip=7-nu 

mpL* 

FOR    1=0    TO    numpL:cp(l)=i: LOCATE 

23,i*o£6t+2:PRINT  namS( i) iNEXT* 

FOR  i=0  TO  nunipL:  j=INT(RND*(nuinp 

L+1)):SWAP  cp(i),Cp( j) :NEXT* 

END  IF* 

NewMap:* 

FOR  1=0  TO  2:C:k(l)=0:NEXT* 

FOR  1=2  TO  20:FOR  j=2  TO  38:ac(l 

, j)=9:pno(i, j)=a:pipmap(i, j)=0iN 

EXT  j,l* 

IF  numpL>0  THEN* 

LOCATE  23,cp(pn)*ofst+2:COLOR  4, 

5:PRINT  najn5(cp(pn)  )* 

LOCATE  21,1: PRINT  SPACE$ ( 40 ) : IF 

pn=numpL  THEN  LOCATE  24,1:PRINT 

SPACES (39) ;* 

END  IF* 

plpe=a:LINE{0,8)-(312,159) ,0,bf* 

NewPlpe;* 

r'0W=2:plpe=pipe+l :  COLOR  1,2* 

Start:* 

coL=INT(RND*37)+2:IF  (sc(2,coL-l 

)  OR  sc(2,coL)  OR  sc(2,coL+l))>0 

THEN  Start* 

GOSUB  Down: IF  Ln<3  THEN  Start  * 

ballx(plpe-l)=coL:baLLy(pipe-l )= 

row : plpmap ( 2 , coL ) =2* 

LOCATE  2,coL:PRINT"  ";:Bc(2,coL) 

=plpe;Ln=2!pdlr=l:dlr=l:G0TO  PLo 

t* 

GetDlr :* 

dir=INT(RND*3) : ck(dlr )=ck(dir ) +1 

* 

IF  ck(0)>l  AND  ck(l)>l  AND  ck(2) 

>l    THEN* 

IF  pno(row,coL)=pipe  THEK* 

LOCATE  row, COL: COLOR  ,0:PRINT"  " 

;: COLOR  ,2* 

sc{row,  coL)=0:pno(row,  c;oL)=0:pip 

raap(row, coL)=0* 

END  IF* 

lm=lm+l:IF  im>10  THEN  NewHap* 

row=row-dy(pdlr) :coL=coL-dx( pdir 

)* 

ck(pdir)=2:ck( (pdir+1)  MOD  2)=a: 

Ok((pdir+2}  MOD  2)=0* 

END  IF* 

IF  3c(  row+dy(dir )  ,  coL+d!c(dir )  )=p 

ipe  OR  ck(dir)>l  THEN  GetDlr* 

IF  dir=0  THEK  GOSUB  Left* 

IF  dlr=l  THEN  GOSUB  Down* 
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Illness  and  injury.  It's  every  par- 
ent's fear,  but  you  don't  have  to 
worry.  Thanks  to  Family Care^''' 
software  you  can  now  handle 
medical  problems  with  confi- 
dence. Developed  by  a  team  of 
expert  pediatricians,  FamilyCare 
is  a  revolutionary  new  computer 
program  that  will  tell  you  exactly 
what  to  do  if  your  child  gets  sick 
or  injured. 

With  FamilyCare,  you  can 
now  get  the  medical  answers  you 
need.  Fast.  And  FamilyCare  is 
as  easy  to  use  as  talking  to  your 
doctor.  By  asking  you  simple 
questions  about  your  child's 
symptoms,  the  FamilyCare  pro- 
gram will  interact  with  you  to 
help  determine  the  nature  and 
seriousness  of  the  problem. 
You  will  then  receive 
professional  advice  on 
how  to  get  proper  and 
effective  medical  help. 

Thanks  to  FamilyCare, 
you  will  now  know.  ,  . 

•  when,  and  when  not 
to  see  a  doctor  "^if^ 

•  how  to  treat  minor 
problems  at  home 


•  how  to  spot  the  early 
symptoms  of  serious  illness 

•  what  to  do  in  a  medical 
emergency 

FamilyCare  will  teach  you  the 
basics  of  first  aid  as  well  as  pro- 
vide you  with  a  health  mainte- 
nance schedule  so  that  you  can 
help  prevent  illness  and  injury 
throughout  your  child's  develop- 
ment. And  FamilyCare  is  com- 
prehensive in  its  coverage.  You 
will  receive  top  pediatric  advice 
on  everything  from  diaper  rash 
to  serious  illness. 

The  remarkable  FamilyCare 
program  is  now  available  for 
only  $180.  Imagine,  for  the  cost 


of  a  few,  and  sometimes  unneces- 
sary doctor's  visits,  you  can  now 
receive  expert  medical  advice 
whenever  you  need  it.  Any  time, 
day  or  night.  And  FamilyCare 
comes  with  a  30-day  money-back 
guarantee.  If  you  are  not  com- 
pletely satisfied,  you  may  return 
the  program  for  a  full  refund. 

Your  family  depends  on  you,  so 
be  prepared.  Order  FamilyCare ^^ 
software  today  and  you  vnll  rest 
assured  that  you're  doing  the  best 
for  your  child. 


Order  FamilyCare  Today.  (For  Newborns  to  Age  15) 

Telephone  oriiers:  Call  l-800--S2e-8426 

In  Michiasn  call  collect  at  (313)  559-4561. 

Mail  Ortfcis:  (Pleaie  fill  out  and  send  to  FamUyCane'"  Software, 

29451  Greenfield  Rd.,  Suite  216,  Southfield,  MI  48078-2251) 

Method  of  Payment:    a  VISA   □  MC    C  Check  or  Money  Order 


Credit  Card  i 
Signature  . 


.  Eip.  Date  _ 


I      (Make  checlu  payable  to  FamilyCare— Include  $2.00  forposl- 
age  and  handling.  Canadian  and  overseas  orders  add  $5,00.) 


Addn 
Phone  _ 


Indicate  Computer:        _  Macintosh*     G  IBM  PC*  and  compatibles 


IF  dir=2  THEN  GOSUB  Right-* 

IF  Ln>l  THEN  c)<;(  0  )=0  ick(  1)  =0  :  ck( 

2)=ES:IF  Ln>2  THEN  ira=a* 

Ln=INT(RND*(Ln+l) )* 

PLot:  ■* 

IF  pdirodir  AND  Ln>l  THEN  pipma 

p(row,coL)=dir+l  :pdir=dir-« 

WHILE  Ln>l-t 

row=row+dy (dir) :coL=coL+dx(dir ) : 

LOCATE    row, COL: PRINT"    "i* 

sc ( row , coL ) =pipe ; pno ( row , coL ) =pn 

o(  row,  coD+pipe-* 

Ln=Ln-l!WEND-« 

IF  row < 23  THEN  GetDir* 

IF  pipe<npip  THEN  NewPipe-* 

GOSUB  GetlntergectilF  ni<l  OR  ni 

>30  THEN  SewMap-* 

GOSUB  MoveBaLLS: COLOR  ,5* 

IF  numpL=0  THEN-« 

pts=pta+ct-m3:IF  pts<0  THEN  pts= 

0-< 

LOCATE  23, 14: PRINT  pts"    " : tot= 

tot+ct+ras :  ctot=ctot+ot-* 

LOCATE  23,32:PRINT  INT( Ctot/tot* 

100)"     "* 

npip=INT(pta/10)+3!lF  npip>6  THE 

N  EndGame'* 

ELSE-* 

LOCATE  23, cp(pn)*of3t+2: PRINT  na 

m$(cp(pn))-« 

ppt3(cp(pn)  )=ppt3(cp(pn)  )-fct:LOC 

ATE  24, Cp(pn)*ofst+2: PRINT  pptB( 

cp(pn) )  ;■« 

IF  pn=0  THEN* 

FOR  i=nurapL  TO  1  STEP-1:F0R  j=0 

TO  i-l-« 

IF  pptg(cp(  j))<ppts(cp{  j-H))  THE 

N  SWAP  cp{  j)  ,cp(3+l)-t 

NEXT  j  ,  i-* 

IF  pptaCcpCnumpL) ) <ppts(cp(nurapL 

-D)  THEN-* 

npip=npip-Hi  COLOR    10,  9:  LOCATE    21 

,1* 

PRINT  SPACE? ( 40 ): LOCATE  21, 13: PR 

INT  nam5 ( cp(nurapL) ) "  Eliminated" 

■* 

LOCATE    23,cpCnunipL)*ofst+2iCOLOR 

0,5: PRINT   nani?(cp(numpL)  )■« 

FOR    i=0    TO    nujiipL:ppts{cp{  i)  )=0  :N 

EXT:numpL=nunipL-l:IF   nU«pL=0    THE 

N  EndGame-* 

ESD  IF-* 

pn=nurapL-« 

ELSE-* 

pn=pn-l-« 

END  IF-* 

END  IF-* 

GOTO  NewMap* 

* 

EndGaraei-* 

FOR  i«0  TO  5000iNEXTiCOLOR  10,9: 

LOCATE  21,  Is  PRINT  SPACE?  (40)-* 

LOCATE  21, 5: PRINT "End  of  Game. 

Play  Again  (Y/N)?"-* 

k5=" " :WHILE  k$=" " :K$=UCASE5 ( IHKE 

YS)  I  WEND-* 

IF  XS="Y"  THEN  CLS:GOTO  NewGame-* 

IF  XS="N"  THEN  GOSUB  CL03eSprite 

S-* 

GOTO  EndGame-* 

.« 

Left:-* 

i=coL:Ln=0-* 

LeftCk:-' 

Ln=Ln+l-« 

IF  SG(row+l,i)>0  THEN  IF  sc  C  row-l- 

l,i-l)>0  THEN  RETURN-* 

IF  sc{row-l,i) >0  THEN  IF  3C(row- 

l,i-l)>0  THEN  RETURN-* 

i=i-l:IF  i<2  THEN  RETURN-* 

GOTO  LeftCk-* 

Right  :■« 

i=COL:Ln=0-' 

RightCk:-* 

Ln=Ln+l-< 

IF  3c(row+l,i) >0  THEN  IF  scCrow+ 


1,H-1)>0  THEN  RETURH-* 

IF  3C(row-l,i)>0  THEN  IF  9c(row- 

l,i  +  l)>0  THEN  RETURN-* 

i=i+l:IF  i>38  THEN  RETURN-* 

GOTO  Right  Ck-* 

Down :  ■♦ 

i=row:Ln=0-* 

DownCk :    -♦ 

Ln=Ln+l-* 

IF  sc(i,coL-H)>0  THEN  IF  3c{i-i-l, 

COL+1)>0  THEN  RETURN-* 

IF  sc(i,coL-l)>0  THEN  IF  sc(i+l, 

COL-1)>0  THEN  RETURN-* 

i=i  +  l:IF  i>20  THEN  RETURN-* 

GOTO  DownCk-* 

* 

Getlnter3ect :  ■* 

ni=0-* 

FOR  row=3  TO  19:  FOR  COL=l  TO  39-* 

IF  sc(row, coL) >0  AND  sc(row-l,co 

L)>0  THEN-* 

sdn=ABSC3c(rowH,coL)>a) :alt=ABS 

(sc(row,coL-l ) >0) :srt=ABSCac( row 

,coL-H)>0)-« 

IF  sdn-t-slt-Hsrt>l  THEN-* 

xi C ni )=( coL-1 )*8!yi(ni)=( row-l )* 

8-* 

IF  sdn-0  THEN-* 

ti(ni)=0:di(ni)=INT(RKD*2)*2-* 

ELSEIF  3lt="0  THEN-* 

ti(ni)=l:di(ni)  =  INT{RND*2)-H-' 

ELSEIF  srt=0  THEN-* 

ti  (  ni  )  =2  :  di  (  ni  )  =  INT  (  RND* 2  )  -* 

ELSE-* 

ti ( ni ) =3 : di ( ni )  =  INT ( RHD*  3 ) * 

END  IF-* 

pipmap  ( row,  coL)  =di  ( ni )  -t-l  s  PUT  ( xi( 

ni) ,yi(ni) ) ,arrow(0,di(ni) ) ,PSET 

:ni=ni+l-« 

END  IF-* 

END  IF-* 

NEXT  coL,row-< 

ni=ni-l:  RETURN-* 

■< 

RotateArrows:-* 

FOR  i=0  TO  ni-* 

ON  ti(i)  GOTO  rotl ,  rot2,  rot3-< 

di(i)=2-di(i)  :GOTO  10-* 

rotl:di(i)  =  3-di(i)  :GOTO  18-* 

rot2:di(i)  =  l-di(i)  :GOTO  10-* 

rot3:di(i)  =  (di(i)+l)  MOD  3-« 

10  pipiiiap(lNT(yi(i)/8)-i-i,INT(xi( 

i)/8)  +  l)=di(i)+l'« 

PUT(xi(i) ,yi(i) ) , arrow(0,di( i) ) , 

PSET-* 

NEXT:  RETURN-* 

4 

MoveBaLLS ;-« 

ct=0:ra3=0:cx=l 56 :cy=162: OBJECT. X 

l,156:OBJECT.Y  1 , 162 : OBJECT . ON  1 

:i  =  STRIG(2)-* 

FOR  i^a  TO  npip-l:CALL  HoveSprit 

e&{0,3prite&+4a*i,ballx(i)*8-5,b 

aLLy(i)*8-13)-« 

NEXT:WHILE  STRIG(  2  )=0  :  CX=CX-VSTIC 

K(2)*a:0BJECT.X  1 , ex : FOR  i=0  TO 

300  I  NEXT:  WEND-* 

bd=0-« 

WHILE  bd=0:bd"l-* 

FOR  j=0  TO  npip-l-« 

IF  baLLy(j)<21  THEN-* 

bd=0-< 

IF   pipniap(baLLyt  j)  ,ballx{  j)  )>0    T 

HEN  balldir(  j  )=pipinap(baLLy(  j  )  ,b 

allx(  j))-l-« 

ballxC j)=baXlx( j)+dx(balldirC j)) 

!baLLy(  j)=baLLy(  j)-t-dy(balldir(  j) 

)* 

CALL  MoveSprite&(0,sprite&-t-48* j, 

ballx ( j ) *8-5 , baLLy ( j ) *B-5  > « 

ELSEIF  baLLy(j)=2l  THEN-* 

IF  j=2  OR  j  =  3  THEN-* 

IF  ballx( j)-INT(cx/8)=4  THEN  GOS 

UB  Catch  ELSE  GOSUB  Mis3:PUT((taa 

llx(  j>-l)*S,170)  ,fbr,PSET-* 

ELSE-* 


IF  ballx( j)-INT(cx/8)=2  THEN  GOS 

UB  Catch  ELSE  GOSUB  Miss : PUT ((ba 

llx{  j)-l)*a,170),fbb,PSET-* 

END  IF-* 

baLLyt  j)=22-* 

END  IF-* 

NEXT-* 

IF  STRIG(2)  THEN  GOSUB  RotateArr 

OWS-* 

CT=cx-^STICK(2)•3:0BJECT.X  l.cx-* 

WEND-* 

OBJECT. OFF  1jLIHE(8,170)-(304,17 

l),5,bf-« 

RETURN-* 

* 

Catch:-* 

SOUND  2000,.5:CALL  MoveSprite&(0 

,  aprite6-H48*j,-16,0)  :Ct=ot-H:RET 

URN-* 

■♦ 

Miss  :-* 

SOUND  20,  .  5,  25  5,3;ms=ins-t-lsCALL  H 

oveSpriteSi  ( 0 ,  spriteSi-1-48*  j  ,  -16 , 0 ) 

sRETURN-* 

* 

LeftArrowi-* 

DATA  7, 7, 3, 1800, 2800, 4E00, 8200, 4 

E00-* 

DATA  2800, 1800, FE00,EE00,CF00, 83 

00,CF00,EE00-« 

DATA  FE00,0, 1000,3100,7000,3100, 

1000,0-* 

DATA  0 ,  0-* 

■* 

DownArrow:-* 

DATA  7, 7, 3, 3800, 2800, EE00, 8200, 4 

400-* 

DATA  2800, 1000, FE00,EE00,EF00, 83 

00,C700,EE00-* 

DATA  FE00, 0,1000, 1100, 7000,3900, 

1000,0-* 

DATA  0,0-* 

* 

RightArrow:-* 

DATA  7, 7, 3, 3000, 2800, E400, 8200, E 

400-* 

DATA  2800, 3000, FE00,EE00,E700, 83 

00,E700,EE00-« 

DATA  FE00, 0,1000, 1900, 7000,1900, 

1000,0-* 

DATA  0,0-* 

•* 

CupData:-* 

DATA  0,0,0,0,0,0,0,0-« 

DATA  0,0,0,4,0,0,0,32* 

DATA  0,0,0,11,0,24,0,15-* 

DATA  0,0-* 

DATA  15,128,15,128,50,64,50,64-* 

DATA  127,252,127,252,255,253,255 

,253-* 

DATA  55,240,55,240,136,13,104,13 

•* 

DATA  0,248,64,248,64,114,96,114-* 

DATA  99,223,99,228,15,8,15,8-* 

DATA  0,96,0,96-* 

DATA  15,240,15,240,48,76,43,76-* 

DATA  112, 6, 112, 6, 96, 2, 96, 2-* 

DATA  240,12,48,12,255,252,127,25 

2-* 

DATA  127,248,127,248,127,240,127 

,240-* 

DATA  63,224,63,224,15,0,15,0-* 

DATA  0,0,0,0-* 

DATA  15,240,15,240,48,76,63,188* 

DATA  112,6,79,250,102,178,223,25 

5* 

DATA  242,172,255,255,255,252,143 

,243* 

DATA  127,248,128,6,127,240,0,14* 

DATA  63,224,64,28,15,0,16,248* 

DATA  0,0,7,224* 

DATA  15,240,15,240,63,188,63,252 

* 

DATA  79 , 250, 127 , 254 , 217 , 79 , 249 , 7 

9* 

DATA  61,95,253,95,15,243,255,255 

-t 
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COMPUTE!  Books 

introduces  a  new  line  of 
easy-to-use  computer  liooifs. 

COMPUTEI's  Quick  and  Easy  Guides  are  effective, 
dependable  reference  guides  to  using  applications 
on  your  personal  computer.  From  command  sum- 
maries and  quick-reference  charts  to  tips  for 
power  users,  you'll  fiave  the  information  you  need 
right  at  your  fingertips.  Each  book  is  specially  de- 
signed to  be  convenient  and  easy  to  understand. 


COMPUTEI's 

QUICK 
&EASY 

GUIDE  TO 

USING 
MS4)0S 


COMPUTEI's 

QUICK 
&EASY 

GUIDE  TO 

LEARNING 

LOTUS  1-2-3 

■ 

COMPUTEI's  Quick  and  Easy  Bulde 
10  Using  MS-DDS 

Bonnie  Derman  and  Stiawberry  Software 
ISBN  0-87455-105-6  $12-95 

Whether  you're  an  experienced  MS- 
DOS  user  or  just  starting  out,  this 
book  is  your  easy-to-use  reference  to 
this  powerful  and  flexible  operating 
system  for  IBM  ant)  compatible  com- 
puters. Mo  longer  will  you  need  to 
wade  through  hundreds  of  pages  to 
find  just  the  right  DOS  command. 
COMPUTEI's  Quick  and  Easy  Guide 
to  Using  MS-DOS  puts  the  infor- 
mation right  at  your  fingertips.  With 
two  indices  and  an  expanded  table  of 
contents,  simply  look  up  the  task  you 
want  to  accomplish  or  the  DOS  com- 
mand you  need— and  you'll  find  an 
explanation  of  exactly  what  to  do. 

CDMPUTEi's  Quick  and  Easy  Guide 
to  Learning  Lotus  1-2-3 

Doug  V*[l 

ISBN  0-87455-106-4  $12.95 

The  perfect  guide  for  the  novice  user 
of  the  popular  and  powerful  Lotus  t- 
2-3,  this  book  assumes  no  previous 
computer  experience  whatsoever. 
COMPUTEI's  Quick  and  Easy  Guide 
to  Learning  Lotus  1-2-3  covers 
everything  from  building  a  spread- 
sheet model,  setting  up  a  database, 
and  using  1-2-3  for  word  processing, 
to  creating  graphs  and  powerful  mac- 
ros. Also  included  are  discussions  on 
how  to  start  1-2-3  and  available  add- 
on software  that  can  be  used  with 
Lotus  1-2-3 


COMPUTEI's  Quick  and  Easy  Bulde 
to  mfsWorks 

Tom  and  Ellen  Dougher 
ISBN  0  37155-109-9  $10.95 

AppleWorks,  the  unchallenged  leader 
in  personal  productivity  software  on 
the  Apple  II  series,  is  an  integrated 
package  combining  a  word  processor, 
database,  and  spreadsheet.  It's  a 
complete  program  that  lets  you  do 
everything  from  writing  letters  and  re- 
ports to  keeping  extensive  files  and 
projecting  financial  eamings.  With 
COMPUTEI's  Quick  and  Easy  Guide 
to  Appleworks,  you'll  see  how  to  get 
started  with  AppleWorks,  and  how  to 
use  each  of  the  three  major  applica- 
tions. A  Command  Summary,  Key- 
board Template,  and  Quick-Reference 
Chart  provide  information  in  one-stop 
locations.  Numerous  ideas  offer  prac- 
tical examples  on  new  ways  to  use 
AppleWorks  And  there's  even  all  the 
latest  information  on  AppleWorks 
add-ons  and  enhancements.  Cleariy 
defined  sections  apply  to  novices  and 
power  users  alike. 

COMPUTErs  Quick  and  Easy  Guide 
10  dBase  til  Plus 

Ctiuck  Doherly 

ISBN  0-87455-1O7-2  J10.95 

For  the  beginning  or  experienced  user 
of  ttiis  popular  database  management 
program.  Ashton-Tate  has  sold  more 
than  a  million  copies  of  dBase,  and 
COMPUTEI's  Quick  and  Easy  Guide 
to  dBase  III  Plus  is  the  guide  and  ref- 
erence to  help  you  tap  all  the  power 
and  flexibility  that  dBase  III  Plus  has 


to  offer.  This  is  not  a  marjual  for 
dBase,  rather,  it's  a  guide  that  makes 
getting  started  with  dBase  easy  and 
finding  specific  infomiation  quick.  For 
all  users  of  dBase  III  Plus  on  the  IBM 
PC,  PC  XT,  PC  AT,  or  compatible 
computer. 

COMPUTEI's  Quick  and  Easy  Guide 
to  WonlPerfecl 

Patricia  Farrell 

ISBN  0-87455-011-4  S10-95 

Write,  edit,  fonnat,  and  print  with 
}M>rdPerfect  your  first  day,  using  this 
simple-to-use  guide  to  the  most 
popular  word  processor  for  the  IBM 
and  IBM  compatibles.  Organized  so 
that  you  can  immediately  begin  to 
use  this  impressive  software,  this 
book  covers  all  the  basics  and  many 
of  the  program's  advanced  features. 
Read  what  you  need  and  then  start  to 
vmrk  with  WordPerfect  Leam  how  to 
enter,  edit,  shift,  and  print  text.  Use 
the  more  advanced  techniques  when 
you're  ready  See  how  to  prepare  a 
complete  report,  set  text  columns, 
merge  information  to  create  form  let- 
ters, and  create  special  forms. 

COMPUTEI's  Qulclt  and  Easy  Guide 
to  Desklop  Publishing 

Dan  McNeill 

ISBN  0-37455-112-9  $10.95 

With  a  computer,  a  printer,  and  the 
right  software,  you  can  turn  out  docu- 
ments, flyers,  brochures,  and  more- 
all  of  the  highest  quality  available  out- 
side a  professional  print  shop.  This 


easy-to-use  reference  guitie  explains 
the  ins  and  outs  of  desktop  publish- 
ing, shows  what  you  can  do  with  the 
variety  of  available  software,  and 
even  helps  you  select  your  system.  If 
you're  tired  of  wading  through  long 
and  technical  manuals,  this  guide  and 
tutorial  will  get  you  started  today  wrth 
desktop  publishing. 

COmPUTEI's  Quick  and  Easy  Guide 
to  Dow  Jones  News/Retrieval 

Donald  B-  Trivetle 

ISBN  0-87455-113-7  $10-95 

Learn  how  to  more  efficientiy  use  the 
Dow  Jones  Information  Service,  a 
powerful  business  and  stock  infor- 
mation database.  Access  up-to-date 
stock  quotations,  financial  infor- 
mation, company  background  data, 
and  more— all  with  Dow  Jones. 
Using  a  personal  computer,  a  mo- 
dem, the  phone,  and  the  nght  soft- 
ware, you  can  search  through  back 
issues  of  publications  like  the  W&// 
Street  Journal  or  directly  place  or- 
ders. This  simplified  guide  to  the  pre- 
eminent business  information  service 
puis  everything  v^hin  easy  reach, 
and  gets  you  started  faster  and  more 
easily  than  any  manual. 


Look  for  COMPUTEI's  Quick  and  Easy  Guides  at  your  local  book  or  computer  store. 

To  order  any  COMPUTE!  book,  call  toll  free  1-800-346-6767  {in  NY  call  212-887-8525) 

or  write  COMPUTE!  Books,  Customer  Service,  P.O.  Box  5038,  F.D.R.  Station,  New  York,  NY  10150. 

Customer  Service  hours  are  10:00  a.m.-12:30  p.m.  and  1:30  p.m.-3:00  p.m.  EST  Mon.  through  Fri. 


COMPUTEl  Publications  Jnc.® 

Port  o(  ABC  Consumer  Mogazines,  inc.  ^^^ 


On©  of  the  ABC  Pubiishing  Companies 


COMPUTEl  books  are  ovoilatil©  outside  tfie  Untied  Stotes  from  subsldtaites  of 
McGrow-Hili  Intemotio^Kil  Book  Company. 


Since  1981 


Lyco  Computer 

Marketing  &  Consultants 


BLUE  CHIP 


PERSONAL 
COMPUTER 

•  100%  IBM 
PC/XT 

compatible! 


(Green,  amber 

&  color  monitors 

available) 


AATARI" 

PC 


WE  WILL 

NOT  BE 

UNDERSOLD 


COiAMOOORE 


128  D  System  /New  &  improved 


PC 

COMPATIBLE 

HARDWARE 

PC  SV.  Drive  S119 

MS  DOS  +  Basic  Soft S59 

BCM  IZG  Gr.  Monitor  Sa9 

BCM  12A  Am.  Monitor $89 

BCM  14C  Color  RGB  Monllor $2B9 

BCC  CG  Color  Card  $94.99 

BCPC  PC/XT  Comp $669 

Avalex  Graphics  Card $169 

Zuckerboarid  $CALL 

lomege  Bernoulli  SCALL 

Hercules  SCALL 

AST  SCALL 


'  •     t     • 


$459 


95 


Commodore  128 

Obsolete 

Discontinued 


AATARI 

1040  ST 
Color  System 


HARD 
DRIVES 


PC  10-1 


A  ready-to-use 
package  of 
computing  power 
and  versatile 
graphics! 

Commodore  1902 
monitor  optional 


$489 


00 


<W  Seagate 

20  meg S275.95 

30  meg S315.9S 

40  meg S4B9.95 

Drives  include  controller 

COMMODORE 

HARDWARE 

1541  C  DisK  Drive  $168.95 

1571  Disk  Drive S219.95 

1581  Disk  Drive S199.95 

Indus  GT  C-64  Drive S169.95 

Blue  Criip  64C  Drive  SCALL 

Blue  Chip  C  128  Drive SCALL 

ia02C  Monitor $194.96 

1902A  Monitor $239 

2002  Monitor  $249.95 

1901  Monitor  SCALL 

64  C  Computer $149.95 

128D  Computer  Drive  $459.95 

1670  Modem  $CALL 

C-1351  Mouse $32.95 

1700  RAM $109.95 

C-1750  RAM   $169-95 

1764  RAM  C64  $124.95 

Geos  $35,95 


COMMODORE  PC  1 0  2 


Flexible  "open 
architecture" 
design  for  easy 
installation  of 
variety  of  options 
640  K  RAM  and 
(wo  51/4"  drives 


$589 


00 


COMMODORE  64: 

Computer 


AATARI..,..,,.  AATARI 


^:^ 


520  ST  FM  Mono  $475.95 

520  ST  FM  Color  S599.95 

1040  ST  Mono  $665.95 

1040  ST  Color S799.95 

130XE  Computer S12S 

1050  Drive  $134.95 

SX5S1  Dnve  ..,■.... $179.95 

SF  314  DisK  Drive $199.95 

SF  354  Disk  Drive  $J19.95 

1050  Drive  (XE.XL)  $135 

Indus  GT  Atari  Drive  S175.9S 

SHD  2t>4  20  MEG  Drive  $569.95 

XM301  Modem $42.95 

SX212  Modem  $89.95 


520  ST-FM 

Monochrome 

System 


$475 


$799 

1-800-233-8760 


mtemal 

drive 

included 


£                                Price  Guarantee  ^ 

/              Since  1981,  we  have  led  the  industry  by  / 

continuing  to  offer  the  iowest  nationai  j 

prices  while  providing  quality  service,  tvlany  § 

companies  have  come  and  gone  trying  to  4 

imitate  our  quality  and  service.  If  by  some  ? 

oversight  we  do  not  have  the  lowest  prices  J 

^           advertised  on  the  products  you  desire,  ^ 

4           then  we  would  appreciate  the  opportunity  & 

/          to  rectify  this  oversight.  ? 


*  The  Reliable,  Affordable  Choice 


•  1 20  cps  Draft  Mode 

•  24  cps  NLQ 

•  Word  Process 

•  Friction  Feed 
(2-year  warranty)  g 


Panasonic 

10801 

$139^^ 


Monitors 


Modems 


Thompson: 

230  Amber  TT1(12" S85 

450  Amber  TTL15"  SI49 

980  White  m20"  S695 

4120  CGA   S229 

4120  RGB  COM  S235 

4160(36382 S279 

4160  CGA   3289 

4460  EGA S359 

4375  UllraScan  S525 


Panasonic: 

1320 S369 

1361  S4S9 

Zenith: 

ZVM  1220 S39 

ZVM  1230 S89 

NEC: 

Mullisync  S5S9 


THOMSON  *>  ^aT'.' S89 

4120  Monitor       '^;^-::::::::^ 

2400 S219 

2400! SCALL 

Hayes: 

AC    Smartmodem  300 S126 

I  "''   Smartmodam  1200 $369 

Smanmodem  2400 $559 


14-  RGBt'Video 
composite'anaiog 
Compalible  with  IBM 
and  Commodoro 
RGB  dala  cable 
included 


$229' 


*  Special  Purchase 


*  Great  Performance, 

Great  Price 


.IL 


y^ 


mmr 


11  it  f  n  I  ( s  ■ 


NP10 

*$125°'' 


•  1 00  cps  draft 

•  25  NLQ 

•  EZ  Front  Panel 
Selection 

•  Auto  Single 
Sheet  Feed 

•  Adjustable 
Tractor  Feed 

EXCELLENT 
VALUE 


lUmited  Quantity)    w/purchase  ol  2  ribbons 


SEIKOSHA 
180Ai 


1 00  cps  draft 
20  cps  NLQ 
standard 
parallel 
and  IBM 


$124 


95 


PRINTERS 


.IL 


HP-IO  "SPECIAL 

NX-10  $144.95 

NX-icx;  wilnlerface S165.95 

NL-10 S195.95 

NX-IS  S279.95 

NO-ID  S249.95 

ND-1S  S375.95 

NH-15  ,.,. $409.95 

NB-IS  $699.95 

NB24-10  $409.95 

NB24-15  5549.95 

SD-10  S229 

SD-15  S345 

SH-10  S369 

SR-15  $429 

DIABLO 

D26  $499 

635 $779 

D-80  IF  $1299 

(special  shipping  —  call  for  details) 

Printer  ribbons  available- 
Priced  from  S4.99 


SEIKOSHA 

SP  laoAi  $124.95 

SP  180VC  S124.95 

SP  lOOOA  ..S159 

SP  10001  S1S9 

SP  1000VC   S135.95 

SP  1200VC S144.95 

SP  1200Ai S155.95 

SP  1200AS  HS232  S155.95 

SLaOAi S295.95 

MP1300Ai  $299.95 

MP53D0Ai  $375.95 

MP642aAi  $879.95 

SP  Series  Ribbon S7.95 

SK3000  Ai  S349 

SK3005  Ai  $429 

BROTHER 

MtlOS  $195 

Ml  409  $339 

Ml  509 $365 

Ml  709  5475 

Twinwriter  Dot  &  Daisy  S849 

2024  LeHef  Qdalily S665 

HR40  S579 

HR60  SCA!.L 


Panasonic 

10301 Special 

10911  $165.95 

10921  $295 

1692 S379 

1696 S4ig 

3131  .,... S259 

3151  $399 

KXP  4450  Laser $CALL 

Okimate20  $119 

Plug  N  Play  Cart  SCALL 

120 ,..,$189.95 

180 $219.95 

182 $229.95 

192+   $309.95 

193+   $449.95 

292  winlerface  $449.95 

293  w  inlertace $589.95 

294  w.inlertace S839.95 

393 $989.95 

NEW 

Panasonic  lOBOi  Mod.  2  .  $154.95 
Panasonic  10911  MoO.  2  ...  174.95 


EPSCMSr 

LXBOO $169.95 

FX86E  $289.95 

FX2B6E  $415.95 

EX800 5349.95 

EX1000 S469.9S 

LQ800 $419.95 

LOlOOO S5B9.95 

LQ2500 S834.95 

QQ3500 $LOW 

SILVER  RECD 

EXP  420P $209 

EXP600P $539 

EXP  800P S649 

#CITIZEN 

120  D $164.95 

MSP-10   $259.95 

MSP-20   $289.95 

MSP-15   $324.95 

MSP-25  $389.95 

MSP-50  SCALL 

MSP-55 SCALL 

Premiere  35 S464.95 

Tnbute  224  $624.95 


Wb  stock  Interfacing  for  Atari,  Commodore,  Apple  and  IBM. 


SOFTWARE 


rARrSr  ^  commodore  m  coimooouL 


SZ4.95 
S24.95 
S24.95 
324,95 

S26.95 
326.95 
S26.95 
S27.95 
S27.95 


S24.9S 

!es#l  .    St3.95 
;es  #2 .   Sia95 

S23.95 

529-95 

S24,9S 

ent 513.95 

I  513-95 

513-95 

r  Brd.   ...  S24.95 

sie.95 

SHEW 

522.95 

kelball-  $22.95 

S9.S0 

S22.95 

S19.95 

522.95 

518.95 

514.95 

sses S24.95 

SS4.95 

S24.95 

latar 519.95 

vorhs: 

$35,95 

,.. $23.95 

$19.95 

524.95 

529.95 

op S29.95 

12eK  „  527,95 

lego  522.95 

II.  Ill  S15.95 

512.95 

S25.95 

npan S22.95 


Fastload S22.95 

Football S13.9S 

Movie  Monsier S13.9S 

Mulliplan  524.95 

Su6  Banle S24.95 

Winter  Games  524.95 

Super  Cycle 513.95 

Graphics  ScraplxJok  ....  S14.95 

Caliiornia  Games  S24.96 

Str.  Sports  Basketball .   524.95 
Wld.'s  Great  Baseball .   513.95 

Summer  Games  II 522.95 

Vorpol  Utility  Kit 513.95 

World  Games 522.95 

Firebird: 

Colossus  Ctiess  IV 519.95 

Elite £19.95 

Golden  Patti  S22.95 

Guild  ot  Thieves  S24.95 

Pawn  $22.95 

Talking  Teacher  $22,95 

Tracker  $22.95 

Starglidef $19.95 

Sentry S22.95 

HI  Tech  Expressions: 

Heart  Ware S6,50 

Holiday  Paper Sa,95 

Card  Ware S6-50 

Party  Ware  S9.50 

Learning  Company: 

Reader  Rabbi! 524.95 

Magic  Spells 522.95 

Gertrude's  Sectels  519.95 

Rocky's  Boots  $22.95 

MIcroleague: 

Ivlicroleag.  Baseball 524.95 

General  Manager  $13.95 

Stat  Disk $15.95 

'86  Team  Disl< $13,95 

Microleag.  Wrestling 5New 

Mlcroprose: 

F-15  Strike  Eagle  $22,95 

Gurtship 522,95 

Kennedy  Approach S15.95 

Silent  Service  $22.95 

Solo  Flight  $18.95 

Top  Gunner  $15,95 

Springboard: 

Newsroom  531.95 

Certificate  Maker $31.95 

Clip  Alt  Vol,  #1  S19.9S 

Clip  Art  Vol.  #2  525.95 

Clip  Alt  Vol.  #3 519.95 

Graphk:s  Expander  532.95 

Strategic  Simulations: 

Gemssone  Heater  518.95 

Gettysburg 535.95 

Kampfgruppe  535.95 

Pttantasie  It  524.95 

Phantasie  III  S24.95 

Ring  of  Zettifi $24.95 

Road  War  2000 524.95 

Shard  ol  Spring  524.95 

Wizards  Crown S24.9S 

War  in  the  S.  Pacific  ...  $35.95 

Wargame  Constr $18.95 

Battlecruiser  $35.95 

Gemstone  Wamor 514.95 

Battle  ot  Anieliam 532.95 

Colonial  Conquest S24.95 

Computer  Ambush  535,95 

B-24 522.95 

Sublogic: 

Bight  Simulator  II  $31.95 

Jet  Simulator  525.95 

Night  Mission  Pinball ...  521-95 

Scenery  Disk  515.95 

Timeworks: 

Partner  C64 S29.95 

Partner  128  S34.95 


Swift  Caic  128  539.95 

Wordwrter  128 539.95 

Unison  World: 

Art  Salary  1  or  2  515.95 

print  Master 522.95 


f|appte 


Access: 

Triple  Pack $13.95 

Activlslon: 

Zoit(  Trilogy  $29.95 

Game  Maker  $29.95 

Leattier  Goddesses  .,..,  524,95 

Term  Paper  529.95 

Champ.  Baseball 524.95 

Champ.  Basketball 524.95 

Championship  Golf SNew 

GFL  Football  $24,95 

Top  Fuel  Eliminator $19.95 

Broderbund: 

Airtieart 522.95 

Print  Shop  526.95 

Print  Shop  Comp S22.95 

Carmen  S,  Diego  lUSAj.. 526.95 

On  Balance  562.95 

Bank  St.  Wnter  ^   544.95 

Epyx: 

Create  A  Calendar  517.95 

Destroyer 524,95 

Karate  Champ  S19.9S 

Movie  Monster 514,95 

SI.  Sports  Basketball ...  524,95 
Sub  Battle  Simulator  ...  524,95 

Winter  Games  522.95 

WorkJ  Games  524.95 

Wresllirg  524,95 

Firebird: 

Colossus  IV  Chess 524.95 

Elite 522.95 

The  Pawn 526.95 

Slarglider 526.95 

Learning  Company: 

Think  Cuick  529.95 

Reader  Rabbit  524.95 

Math  Rabbit $24.95 

Writer  Rabbit  $24.95 

Magic  Spells S22.95 

MIcroleague: 

Micfoleag.  Baseball 523,95 

General  Manager  518.95 

Stat  Disk 513.95 

36  Team  Disk $11.95 

Mlcroprose: 

Crasad'5  in  Europe  524.95 

Decision  in  Deseil 524.95 

F-15  Strike  Eagle  $20.95 

Silent  Service  $20.95 

Strategic  SImulolions: 

BattlecmlBar  $35.95 

Colonial  Conquest 524.95 

Gettysburg  534.95 

Phantasie  III  522.95 

Realms  of  Darkness  ....  522.95 

Shard  ot  Spring  $22.95 

Wizards  Crown  522-96 

Eternal  Dagger  524.95 

Shiloh  5NEW 

Subiogic: 

Flight  Simulator  It  $29.95 

Jet  Simulator  525.95 

!^light  Mission  Pinbalt ...  522.95 

Scenery  #1-#6  $69,95 

Unison  World: 

Art  Gallery  2  ,.„ $19.95 

Print  Master 526.95 


^Jmr&i 


Access: 

Leader  Board  524.95 

10th  Frame 524,95 

Tournament  #1  514,95 

Activlslon: 

Champ,  Basketball  $27.95 

Championship  Goll $24.95 

GFL  Football   $27.95 

Hacker 516.95 

Hacker  2 524,95 

Musk  Studio 529.95 

Tass  Times $24.95 

Epyx: 

Apshai  Trilogy  „ , 513.95 

Rogue 522.95 

Wnter  Games  522.95 

World  Games  522.95 

Firebird: 

Guild  of  Thieves  526,95 

Pawn  526.95 

Slarglider $26.95 

Mlcroprose: 

Silent  Service $24.95 

Subiogic: 

Flight  Simulator  II  532.95 

Jet  Simulator  $32,95 

Scenery  Disk  -..„.„.  517.95 

Unison  World: 

Print  Master 524.95 

ArtGaSlery  1  or  2  $18.95 

Fonts  &  Borders $22.95 


IBM 


Access: 

WId.  CI.  Leader  Board .  SCALL 
Activlslon: 

Pebble  Beach  Golt 524.95 

Champ.  Baseball  524,95 

Champ.  Basketball 524,95 

ZoritTnlogy  539.95 

Leather  Goddesses 524.95 

Moonmist 524.95 

Broderbund: 

Ancient  Art  ol  War 528.95 

Print  Shop  532.95 

Print  Shop  Compan $31 .95 

Graphic  Lib.  I  or  II  521.95 

Karateka $21.95 

Toy  Shop $29,95 

BankSL  Writer  +  $54.95 

Epyx: 

Apshai  Thiogy  $14.95 

Create  A  Calendar $17.95 

Destroyer 524.95 

Movie  Monster $14.95 

Rogue 519.95 

Sl  Sports  Basketball ...  $24.95 
Sub  Battle  Simulator  ...  $23.95 

Winter  Games  524.95 

World  Games 523.95 

Rrebird: 

Slarglider $26,95 

Guild  of  Thieves 526.95 

Learning  Company: 

Think  Quick  529,95 

Reader  Babbit  524,95 

Math  Rabbit 524.95 

Writer  Rabbft  524.95 

Magic  Spells 522.95 

MIcroleague: 

Microleag.  Baseball $23.95 

General  Manager  518.95 

Stat  Disk 515.95 

•66  Team  Disk $11,95 

MIcroprosa: 

Condict  in  Vietnam 524.95 


Crusade  in  Europe  $24.95 

Decision  in  Desert 524.95 

F-15  Strike  Eagle  52095 

Silent  Service  520.95 

Gunship 528.95 

Strategic  Simulations: 

Fload  War  2000 524.95 

Kampfgruppe  535.95 

Shard  ol  Spring  524.95 

Battle  of  Antetiem 535.95 

Computer  Baseball $14,95 

Gettysburg $35.95 

Wizards  Crown $24,95 

Oiickainauga  $35,95 

Subiogic: 

Jel  Simulator 531.95 

Scenery  Japan  517.95 

Scenery  San  Fran 517.95 

Scenery  #1-#6 569.95 

Right  Simulator $36.95 

TImcworks: 

Swiflcalc  $39,95 

Wordwriter $39,95 

Unison  World: 

Art  Gallery  2  $18.95 

News  Master  $65.95 

PnnI  Master $36.95 

Fonts  &  Borders 522,95 


f  Diskettes  i 

r 

5-1/4 

Maxell: 

ssoo 

S8.99 

DSDD 

,  59.99 

Bonus: 

SSDO  

56.95 

DSDD  

$7.95 

SKC: 

DSDD  

$9.95 

DSHD  

$16.95 

$6.99 

Verbatim: 

SSDD  

$9.95 

DSDD  

512.95 

3.5 

Maxell: 

SSDD  .,.. 

......  512.50 

DSDD  

$17.99 

Verbatim: 

SSDD   

$16.95 

DSDD  

$24.95 

SKC: 

SSDD 

$13.95 

DSDD  

516.95 

Generic  SSDD 

513.95 

Generic  DSDD  

$15.95 

Joysticks 


Tac3  $9.95 

Tac2  510.95 

Tac5  512.95 

Tac  1   -  IBMjAP  526.95 

Economy  55.95 

Slik  Slick  „., 56.95 

Black  Max 510.95 

Boss 511.99 

3-Way $19.99 

Bathandte  $16.75 

500XJ  $14.75 

SOOXJ-Apple.'PC  $26.95 

Winner  909 524.95 

Wico  IBM/AP  $29.95 

PC  Joystick  Board 534,95 


Lyco  Means  Total  Service. 


Mark  "Mac"  Bowser, 
Sales  Manager 

i  would  personally 
like  to  thank  all  of  our 
past  customers  for 
helping  to  make  Lyco 
Computer  one  of  the 
largest  mail  order 
companies  and  a 
leader  in  the  industry. 
Also,  I  would  tike  to 
extend  my  personal 
invitation  to  all  computer 
enthusiasts  who  have 
not  experienced  the 
services  that  we  provide. 
Please  call  our  trained 

sales  staff  at  our  toll  free  number  1o  inquire  about  our 

diverse  product  line  and  vi/eekly  specials. 

First  and  foremost  our  philosophy  is  to  keep  abreast 
of  the  changing  market  so  that  we  can  provide  you  with 
not  only  factory-fresh  merchandise  but  also  the  newest 
models  offered  by  the  manufacturers  at  the  absolute  best 
possible  prices.  And  we  offer  the  widest  selection  of 
computer  hardware,  software  and  accessories. 

Feel  free  to  call  Lyco  if  you  want  to  know  more  about 
a  particular  item.  I  can't  stress  enough  that  our  toll-free 
number  is  not  just  for  orders.  Many  companies  have  a 
toll-free  number  for  ordering,  but  if  you  just  want  to  ask  a 
question  about  a  product,  you  have  to  make  a  toll  call.  Not 
at  Lyco.  Our  trained  sales  staff  is  knowledgeable  about  all 
the  products  we  stock  and  is  happy  to  answer  any  questions 
you  may  have.  We  will  do  our  best  to  make  sure  that  the 
product  you  select  will  fit  your  application.  We  also  have 
Saturday  hours  —  one  more  reason  to  call  us  for  all  your 
computer  needs. 

Once  you've  placed  your  order  with  Lyco,  we  don't 
forget  about  you.  Our  fhendly,  professional  customer 
service  representatives  will  find  answers  to  your  questions 

about  the  status  of  an 
order,  warranties, 
product  availability,  or 
prices. 

Lyco  Computer 
stocks  a  multimillion 
dollar  inventory  of 
factory-fresh 
merchaodise.  Chances 
are  we  have  exactly 
what  you  want  right  in 
our  warehouse.  And  that 
means  you'll  get  it  fast. 
In  fact,  orders  are 
normally  shipped  within 
24  hours.  Sliipping  on 
prepaid  cash  orders  is 
free  in  the  U.S.,  and 
there  is  no  deposit 
required  on  C.O.D.  orders.  Air  freight  or  UPS  Blue  Red  Label 
shipping  is  available,  too.  And  all  products  carry  the  full 
manufacturers'  warranties. 

I  can't  see  why  anyone  would  shop  anywhere  else.  Selec- 
tion from  our  huge  in-slock  inventory,  best  price,  service  that 
can't  be  beat  —  we've  got  it  all  here  at  Lyco  Computer. 

TO  ORDER,  CALL  TOLL-FREE:  1-800-233-8760 
In  PA;  1-717-494-1030 

Hours:  9AIVI  to  8PM,  Mon.  -  Thurs. 
9AM  to  6PM,  Friday  —  10AM  to  6PM,  Saturday 

For  Customer  Service,  call  1-717-494-1670, 

9AM  to  5PM,  Mon.  -  Fri.  ^^^ 

Or  write:  Lyco  Computer,  Inc.  ^S^ 

P.O.  Box  5086,  Jersey  Shore,  PA  17740     ^^m 


Risk-Free  Policy:  •  lull  manufaclurers  warraniies  •  no  sales  lax  outside  PA 

•  prices  show  4'i  cash  discouni,  add  i°=  lor  credil  cards  •  APO.  FRO. 
international:  add  35  plus  3°i  tor  priority  *  4-wGek  clearance  on  personal  checks 

•  we  check  lor  credit  card  ihell  •  compalabilily  not  guaranleed  •  return 
authorization  required  •  price  availability  subiect  to  ctiange 

Attention  Educational 
Institutions: 

If  you  are  not  currently  using  our 

educational  service  program,  please 

call  our  representatives  for  delalls. 


AATARr 


Access; 

Leader  Board  S24.95 

Tournament  #1 S14.95 

Triple  Pack  - $14.95 

Actlvlalon; 

Hacker $14.95 

Hitch  Hikers $24,95 

Leather  Goddesses  $24,95 

Moonmisl $24,95 

Music  Studio SZ4.95 

Stalionfall $22.95 

Lurking  Horrar  $22,95 

Broderbund; 

Prim  Shop  S25.95 

Print  Shop  Compan £22.95 

Graphic  Ub.  I,  II.  Ill  $15.95 

Karateka $12.95 

Bank  St.  Writer $29.95 

Firebird: 

The  Pawn $27.95 

Micro  leaguei 

Microleag.  Baseball $24.95 

General  Manager  $24.95 

Stai  Disk $17.95 

'SSTeam  Disk  $14.95 

Mach  II  $17,95 

MIcroprose: 

Conflict  in  Vietnam  ......  $24.95 

F-15  Stnke  Eagle  S22.95 

Kennedy  Approact^ $18.95 

SilemSenrioe $22.95 

Top  Gunner  $16.95 

Optiinlzed  Systems: 

Action  $46.95 

Action  Tool  Kit $18.95 

Basic  XE $46.95 

Basic  XL $36.95 

Basic  XL  Tool  Kit  S1B.95 

Mao  65  S46.95 

Mac  G5  Tool  Kit  $18.95 

Strategic  Simulations; 

Battle  of  Antetiem $32.95 

Baltiecruiser  $35.95 

Nam $24.95 

Phantaaie  S24.9S 

Wargame  Construe S1fl-95 

Warship S35.95 

Wizards  Crown $24.95 

Subloglc: 

Flight  Simulator  II  $31.95 

Night  Mission  Pinball ...  S21.95 

Scenery  #l-#6sa S14.9S 

Scenery  #7 S17.95 


AATARr  sr 


Access: 

Leader  Board  324.95 

Tournament  #1  $13.95 

lOltt  Frame $a4.9S 

Actlvision: 

Champion.  Basisbali  ....  $24,95 

Champion.  Basketball ,   $24. 95 

CItampionship  Goll ,,. 3r>lew 

GFL  Football  $24.95 

Hacker  2 $24.95 

Leather  Goddesses $24.95 

Moonmlst $24.95 

Music  Studio $29.95 

Paint  Wortts $24,95 

Shanghai  $24.95 

Bureaucracy $24.95 

Stafionfall $24.95 

Lurking  Horror $24.95 

Top  Fuel  S19.9S 

Broilerbund; 

Kareteka  $CALL 


Firebird: 

Pawn 

Starglider 

GoWen  Path  . 
Guild  ot  Tfriev 
Tracker  ., 


Action  Soft; 

Up  Periscope 
Thunder  Chopi 
Actlvlslon; 

Aliens 

Champion.  Ba; 

Hacker  

Hacker  2  , - 

Labyrintti 

Music  Studio  . 
Tass  Times  ... 

Titanic „..,- 

Leather  Godde 

Stationtall 

Lurking  Horror 
Top  Fuel  Elimi 
Berkeley  Sotti 

Gbos 

Deskpak  I 

Fonlpak  I  

Geodex 

Geofile 

Writers  Works! 


DATA  128, 6, 255, 254, 0,14, 127, 254< 

DATA  64,28,127,252,16,248,31,248 

* 

DATA  7,224,7,224* 

* 

InitSprites  :■« 

aprite&=A!jLoc Rasters.  ( 16  ,  144)  :  IF 

aprite6.=il3   T'HEN   CLoseSprites* 

CALL   BLtCLear&t  sprites.,  288,0) 

* 

FOR    i  =  2    TO    7:off3et=48*(i-2)-* 

IF  GetSpriteS.(  sprite4+of  f  set,  i  )  < 

>i  THEN  CLoseSpritesl-* 

POKEW  aprite6.+offset+4,  7!POKEW  s 

priteS.+o££3et+6,-17-* 

RESTORE  BaLLData:FOR  j=16  TO  42 

STEP  2: READ  H : POKE  SpriteS+of f se 

t  +  j,X:NEXT-* 

CALL   ChangeSprite&(0,3priteE.+of f 

8et,spriteS.+offset+12)-« 

NEXT: RETURN" 

•« 

BaLLData  J-* 

DATA  0,60,0,126,3,255,1* 

DATA  255,  15,  255,  6,  126,  28,  60< 

* 

CLoseSprites:-* 

FOR  i=2  TO  7; CALL  FreeSpriteS.  (  i ) 

tNEXT* 

CLoseSpritesl:* 

CALL  FreeRaster& (sprites, 16,  144) 

-« 

WINDOW  CLOSE  3: SCREEN  CLOSE  1:0N 

ERROR  GOTO  0:END-« 


Program  5:  IBM  PC/PCjr 
Marbles 

Version  by  Tim  Midkiff,  Editorial 
Programmer 

iB  10  -COPYRIGHT  1987  COMPUTE  I  P 
UBLl CAT  IONS,  INC.       ALL 
RIGHTS  RESERVED. 
BN  20  KEY  OFF:DEF  SEG=0:DEFINT  Pi 
-ZiPQKE  1047, PEEK (1047)  OR 
64: RANDOMIZE  TIMER 
EE  30  DIM  SC(21,40) ,PNO(21,40>,P 
IPMflP<Zl,40) , XI (30) , YI (30) 
,DI (30) ,T1 <30) 
DJ  40  WIDTH  40:  SCREEN  0,  I  :  RESTOR 
E  40:FOR  1=0  TO  2:READ  A:fi 
RROW*(I)=CHR*(A) : NEXT: DATA 
27,25,26 
GN  50  RESTORE  50:  FOR 
flO  DX (I) ,DY(I) 
1,0,0,1,1,0 
HN  60  RESTORE  60: FDR  1=0  TO  2:BC 
(I«2)=14:BC( I»2+1)=12:NEXT 
DI  70  U$=CHR$(72) :L«=CHR*(74) :R» 
=CHR*(7B):E«="  '■  :  C*=CHR«  ( 1 
78) :B*=CHR4(153> 
KD  80  COLOR  15,Z,0:CLS:PRINT  TAB 

(12)  "Copyright  1987" 
CH  90  PRINT  TAB  (7)  "COMPUTE!  Pub 

licationa,  Inc." 
DK  100  PRINT  TAB(10)  "All  Rights 

Reserved.  " 
flC  110  LOCATE  10,5:PRINT"Enter  N 
umber  of  Players  (1-5)  "; 
DN  120  K*="":  WHILE  K*="  "  :  K*=INKE 
Y*:WEND:XF  K*< " 1 "  OR  K«>" 
5"  THEN  120 
Kit  130  PRINT  K«:FOR  X  =  l  TO  500:  N 
EXT:CLS: NUMPL=VAL (K* ) -1 :  P 
TS=0: PN=NUMPL: LN*=SPACE* ( 
40) 
K  140  IF  NUt1PL=0  THEN  LOCATE  23 
,6: PRINT "Marbles: ": LOCATE 
23,25:PRINT"R3ting: ":NPI 
P=3:G0T0  210 
OJ  150  LOCATE  10,  l:PRlNT"Enter  t 

fie  initials  of  player" 
NB  160  FOR  1=0  TO  NUMPL:  LOCATE  1 


1=0  TO  2: RE 
: NEXT: DATA  - 


QO 

240 

EB 

250 

DA 

260 

BC 

270 

0,29:PRINT  LEFT* (STR» ( I+l 
),2) ; : INPUT  NAM* ( I > 

EH  170  NAM*  (DELEFT*  (NAM*  (I  )+SPA 
CE* (3) ,3): LOCATE  10, 29: PR 
INT  SPACES! II ) :NEXT 

!J  180  CLS:0FST=INT:34/N1JMPL)  :NP 
IP=7-NUMPL:C0L0R  7 

OB  190  FDR  1=0  TO  NUMPL:  CP  ( I )  =  I  : 
LOCATE  23, I«0FST+2:PRINT 
NAM* (I) iNEXT 

CC  200  FDR  1=0  TO  NUMPL:  J=INT(RN 
D*(NUMPL+1J ) :SWAP  CP ( I ) , C 
P(J) :NEXT 

IF  210  LOCATE  ,,0:FOR  1=0  TO  2:C 
K(I)=0:NEXT:FDR  1=2  TO  20 
:FDR  J=2  TO  3B: SC ( 1 , J) =0: 
PNO ( I , J ) =0: PIPMAP ( I , J ) =0: 
NEXT  J, I 

01  220  IF  NUMPL>0  THEN  LOCATE  23 
,CP(PN)«0FST+2: COLOR  15,2 
:PRINT  NAM*(CP(PN) ) :LOCAT 
E  21,1: PRINT  LN*: IF  PN=NU 
MPL  THEN  LOCATE  24,1:PRIN 
T  LEFTS (LN*, 38) ; 

SK  230  COLOR  ,  1  :  PIPE=0:  LOCATE  2, 
IrFDR  1=2  TO  20: PRINT  LN* 
; :NEXT 
R0W=2:PIPE=PIPE+1: COLOR  , 


C0L=INT(RND*37)+2: IF  (SC( 

2,CDL~1)  OR  SC(2,C0L)  OR 

SCC2,C0L+1> ) >0  THEN  250 

GOSUB  850: IF  LN<3  THEN  25 

0 

BALLX ( P I PE- 1 ) =C0L : BALLY ( P 

lPE-1 ) =RQW: PIFMAP (2, COL ) = 


10   280    LOCATE    2,  COL:  PRINT    E*,-:SC 
(2,  COL)=PIPE: LN=2: PDIR=! : 

DIR=1:60TD    410 
KE   290    DIR=1NT(RND«3) :CK(DIR)=CK 

(DIR)+1 
PE   300    IF    NDT<CK(0)>1 

1    AND   CK(2) >1> 

BC  310  IF  PND(R0W,CDL>=P1PE  THEN 

LOCATE  ROW, COL: COLOR  ,1: 

PRINT  ES;: COLOR  , 5: SC (ROW 

, COL ) =0: PNO ( ROW, COL) =0: PI 

PMAP ( ROW, COL) =0: ROW=ROW-D 

Y(PDIR) 
t\    320  IM=IM+1:IF  IM>10  THEN  210 
HH  330  ROW=ROW-DY(PDIR):COL=COL- 

DX(PDIR) 
PH  340  CK(PDIR)=2:CK( (PDIR+1)  MD 

D  2)=0:CK( CPDIR+2)  MOD  2) 

=0 
FE  350  IF  SC(ROW+DY(DIR> ,COL+DX( 

DIR))=PIPE  OR  CK(DIR)>1  T 

HEN  290 
LL  360  IF  DIR=0  THEN  GOSUB  730 
flE  370  IF  DIR=1  THEN  GOSUB  850 
5D  380  IF  DIR=2  THEN  GOSUB  790 
on  390  IF  LN>1  THEN  CK(0)=0:CK(1 

)-0:CK(2)=0: I M=0 
JB  400  LN=INT(RND*(LN+1) ) 
SB  410  IF  PDIRODIR  AND  LNM  THE 

N  PIPMAP(ROW,COL)=DIR-H:P 

DIR=DIR 
NH  420  WHILE  LN>1 
EH  430  ROW=RDW+Dy  (DIR)  :COL=COL+D 

X(DIR> :LDCATE  RDW,COL:PRI 

NT  ES; 
GJ  440  SC(RaW,COL)=PIPE:PN0(R0W, 

CDL!=PNO(ROW,COL)+PIPE 
6P  450  LN=LN-1:WEND 
B!1  460  IF  ROW<20  THEN  290 
5A  470  IF  PIPE<NPIP  THEN  240 
HS  480  GOSUB  910:  IF  NKl  OR  NI>3 

0  THEN  210 
IS  490  GOSUB  1130: COLOR  7,2 
J5  500  IF  NUMFLO0  THEN  550 
lY.   510  PTS=PTS+CT-M.S:IF  PTS<0  TH 

EN  F'TS=0 
GO  520  LOCATE  23,  14:  PRINT  PTS" 


AND  CK ( 1) > 
THEN  350 


Ar 

530 

"i 

540 

pj 

550 

OF 

560 

CA 

570 

JJ 

580 

PS 

590 

C6 

600 

HD 

610 

116 

620 

AB 

630 

BH  640 


DA  660 
CE  670 
DN  680 


DF  690 

SE  700 

DS  710 
15  720 

HK  730 
JS  740 

m  750 

CA  760 


OF  770 
it:  780 
HE  790 
it  800 
CD  B10 


NJ  820 


ID 

830 

FB 

840 

IL 

eS0 

JB 

860 

JL 

870 

DN 

B80 

PH 

890 

jn 

900 

EP 

910 

8M 

920 

EI  930 


IH  940 


EP  950 


" ; : T0T=TOT+CT+MS: CTDT=CTO 
T+CT 

LOCATE  23,32;PRINT  INT(CT 

OT/TOT*100)"   "; 

NPIP=INT(FTS/10)+3: IF  NPI 

P>6  THEN  6B0  ELSE  670 

LOCATE  23,CP(PN) tOFST+2:P 

RINT  NAM* (CP(PN) ) 

PPTS(CP<PN) )=PPTS(CP(FN) ) 

+CT:LOCATE  24, CP <PN) «OFST 

+2:PRINT  PPT5(CP(PN)  )  ; 

IF  PNO0  THEN  PN=PN-1:G0T 

D  670 

FOR  I=NUMPL  TO  1  STEP  -1  : 

FDR  J=0  TO  I-l 

IF  PPTS(CP(J) )<PPTS(CP(J+ 

D)  THEN  SWAP  CP(J),CP(J  + 

1) 

NEXT  J, I 

IF  NOT (PPTS(CP (NUMPL )) <PP 

TS(CP{NUMPL-1) ) )  THEN  660 

NPIP=NPIP+1:C0L0R  14,4:LD 

CATE  21, 1 

PRINT  LNS: LOCATE  21, 13: PR 

INT  NAM* tCF (NUMPL) ) "  Elim 

inated" 

LOCATE  23, CP (NUMPL) tOFST* 

2: COLOR  8, 2: PRINT  NAM*(CP 

(NUMPL)) ; 

FDR  1=0  TD  NUMPL: PPTS(CP( 

I) )=0:NEXT:NUMPL=NUMPL-I: 

IF  NUMPL=0  THEN  680 

PN=NUMPL 

GOTO  210 

FOR  1=0  TO  5000: NEXT: COLO 

R  14, 4: LOCATE  21,1: PRINT 

LN* 

LOCATE  21,5:PRINT"End  of 

Game.   Play  again  (Y/N)?" 

K4="": WHILE  K*=" " : Kt=INKE 

Y*:WEND 

IF  KS="Y"  THEN  80 

IF  K*="N"  THEN  CLSiEND  EL 

SE  700 

I=COL:LN=0 

LN=LN+1 

IF  SC(R0W+1, I) >0  THEN  IF 

SC(RDW+1, I-l) >0  THEN  RETU 

RN 

IF  SC(R0W-1,I) >0  THEN  IF 

SC(R0W-1, I-l) >0  THEN  RETU 

RN 

1=1-1: IF  I<2  THEN  RETURN 

BDTD  740 

I=CDL:LN=0 

LN=LN+1 

IF  SC(R0W+1, I)>0  THEN  IF 

SC(R0W+1, I+l) >0  THEN  RETU 

RN 

IF  SC(R0W-1, I) >0  THEN  IF 

SC(ROW-i, I+l) >0  THEN  RETU 

RN 

1=1+1: IF  1>38  THEN  RETURN 

GOTO  800 

I=RaW:LN=0 

LN=LN+1 

IF  SC(I,C0L+1) >0  THEN  IF 

SC(I+1,CQL+1) >0  THEN  RETU 

RN 

IF  5C(I,CDL-1) >0  THEN  IF 

SC<I+1,C0L-1) >0  THEN  RETU 

RN 

1=1+1: IF  I>20  THEN  RETURN 

GOTO  B60 

NI=0: COLOR  11 

FOR  R0W=3  TD  19: FDR  CDL=2 

TD  38 
IF  NOT(SC(ROW,CDL) >0  AND 
SC(R0W-1,CDL) >0)  THEN  102 
0 

SDN=ABS(SC(RDW+1,C0L) >0) : 
SLT-ABS(SC(R0W,C0L-1) >0)  : 
SRT=ABS ( SC ( ROW , COL+ 1 ) >0 ) 
IF  NOT(SDN+SLT+SRT>I)  THE 
N  1020 
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KB   9&0 
LA   970 


FP  980 


KK 

990 

IID 

1000 

CI 

1010 

JA 

1020 

m 

1030 

IP 

1040 

FJ 

1050 

Bit 

1060 

W 

1070 

PF 

1080 

OA 

1090 

GJ 

1100 

EJ 

1110 

EK 

1120 

LA 

1130 

ZH 

1140 

m 

1150 

HE 

1160 

66 

1170 

eN 

11B0 

1190 


01    1200 


JL    1210 

HP    1220 

II  1230 
DH  1240 
FK   1250 


AC    12ib0 
Ml    1270 


FD    1280 


KB    1290 


En    1300 


XI(NI)=COL:YI (NI)=RDW 
IF    SDN=0    THEN   TI(NI)=0:DI 
(NI)=INT(RND*2)«2:60T0    10 
10 

IF  SLT=0  THEN  TI(NI)=1:DI 
(NI)=INT(RND*2)+l:BaTD  10 
10 

IF    SRT=0    THEN    TI(NI)>=2:DI 
(NI)=INT(RNDt2) :BGTQ    1010 
TI(NI)=3:D1 (NI)=INT(RND« 
3) 

PIPMAP(ROW,COL)=0I (NI)+1 
: PND (ROW, COL>  =91 : LOCATE 
ROW, COL: PRINT    flRRaW*(DIC 
NI) ) :NI=NI+1 
NEXT    CDL,RDW 
NI=NI-1:J=0:FOR    1=2    TO    3 
8: IF    SC(20,I)>0   THEN    PEX 
IT(J)=I:J=J+1 
NEXT: PEXT=J : RETURN 
COLOR    11:F0R    1=0   TO    NI 
ON    TICI)     GOTO    1080,1090, 
1100 

Dm>=2-DI  (I):GDTO  1110 
DI (I}=3-DI<I> :GOTO  1110 
DI (I>=1-DI (I) :GaTO  1110 
DI (I)=(DI (I>+1)  MOD  3 
PIPMAPCYKI)  ,XI  (I)  >=DI<I 
>+l:  LOCATE  YKD.XKDiP 
RINT  ARROW* <DI (I) > 
NEXT: COLOR  14: RETURN 
FOR  1=0  TO  NPIP-1: LOCATE 
BALLY { I) , BALLX ( I ) : COLOR 
BC(I) : PRINT  B«;:NEXT 
CT-0: MS=0: CC=0: CX=PEXIT ( 
0):CY=21:WHILE  INKEYSO" 
": WEND: LOCATE  CY,CX:COLD 
R  BC(0> ,2:PRINT  C*:PEX=0 
BD=0: COLOR  ,5 
WHILE  BD=0:BD=1 
FDR  J=0  TO  NPIP-1 
IF  NDT(BALLY(J><21)  THEN 

1230 
IF  PIPMAP(eALLY(J> , BALLX 
(jn>0  THEN  BALLDIRtJ)=P 
IPMAP ( BALLY  <  J ) , BALLX ( J ) > 
-1 

IF  PNO (BALLY (J3 .BALLX (J) 
J>90  THEN  LOCATE  BALLY (J 
), BALLX (J3 rCGLDR  lliPRIN 
T  ARROW*(BALLDIR(J) )  ELS 
E  LOCATE  BALLY(J) , BALLX t 
J) :PRINT  E*; 

BALLX ( J ) =BALLX ( J ) +DX (BAL 
LDIR(J>  > :BALLY(J)=BALLY( 
J)+DY£BALLDIR(J) ) 
LOCATE  BALLY (J >, BALLX (J) 
:COLDR  BC(J):PRINT  BS;:B 
D=0:6OTO  1260 

IF  ndt:bally(J)=21)  then 

1260 
LOCATE  BALLY(J) ,BALLX<J) 
:BALLY(J)=22 

IF  BALLX (J)-CX=0  AND  BC ( 
J)=BC(CC)  THEN  COLOR  EC ( 
CC),2:PRINT  CSiCOLOR  ,5: 
SOUND  1000,2:CT=CT+1  ELS 
E  COLOR  ,2:PRINT"_"; :C0L 
OR  ,5: SOUND  37,4:MS=MS+1 
NEXT 

K:$=RIGHT*CINKEYS,1)  :  IF  K 
*=■"■  THEN  1300 
IF  K«=E*  THEN  GOSUB  1050 

ELSE  IF  K«=Ut  THEN  CC=1 
-CC:K*=CHR*(761 
IF  KS>L*  AND  KS<RS  THEN 
COLOR  BC (CO ,2: LOCATE  CY 
,CX: PRINT  E»; :PEX=(PEX+P 
EXT+ASC(Ka.)-76)  MOD  PEXT 
s CX=PEXIT (PEX ): LOCATE  CY 
,CX: PRINT  C*;: COLOR  ,5 
WEND : LOCATE  21,1: COLOR  , 
2: PRINT  LN*: RETURN 


Attention  all  FX80,  FXlOO,  JX,  RX,  &  MX  owners: 

Yott  already  own  half  of 
a  great  printer 


Now  for  S79.95  you  can  own 
the  rest.  You  see,  today's  new  dot 
matrix  printers  offer  a  lot  more. 

Like  an  NLQ  mode  that  makes 
their  letters  print  almost  as  sharp  as 
a  daisy  wheel.  And  mode  switch- 
ing at  the  touch  of  a  button  in  over 
160  styles.  But  now,  a  Dots-Perfect 


upgrade  kit  will  make  your  printer 
work  like  the  new  models  in  min- 
utes— at  a  fraction  of  their  cost. 

And  FX,  JX  and  MX  models  wiU 
print  the  IBM  character  set,  too. 

So,  call  now  and  use  your  Visa, 
MasterCard,  or  AmerEx.  Don't 
replace  your  printer,  upgrade  it! 


1-800-368-7737 

(Anywhere  in  the  United  States  or  Canada) 


gSS.      (Dots-Perfect) 

Sc-D  resselhaus 

8560  Vineyard  Ave.,  Ste.  405.  Rancho  Cucamonga.  CA  91730 

An  Upgrade  kit  for  EPSON  FX,  JX,  RX,  &  MX  printers 


Stimpte  of 
ietiei  without 
DcKS-Perfeci 


g 


(714)  945-5600 


tpti>  cflpi^rLAnjcfiii.  Ii 


Save  Your  Copies  of  COMPUTE! 


Protect  your  back  issues  of  COMPUTE! 
in  durable  binders  or  library  cases. 
Each  binder  or  case  is  custom-made 
in  flag-blue  binding  with  embossed 
white  lettering.  Each  holds  a  year  of 
COMPUTE!.  Order  several  and  keep 
your  issues  of  COMPUTE!  neatly  or- 
ganized for  quick  reference. 
(These  binders  make  great 
gifts,  too!) 


Cases: 

$7.95  each; 
3  for  $21.95; 
6  for  $39.95 


Binders 

$9.95  each; 
3  for  $27.95; 
6  for  S52.95 


(Please  add  S2.50  per  unit  for  orders 
outside  the  U.S.) 

Send  In  your  prepaid  order  wifh  tfi© 
attached  coupon 


Mail  to:  Jesse  Jones  Industries,  P.O.  Box  5120, 

Dept.  Code  COTE, Philadelphia,  PA  19141 

Pfeose  send  me COMPUTE!    D  cases 


Enclosed  is  my  check  or  money  order  for  $  . 
only.) 

Name 

Address . 

City  _. ^ 

Stat© ^^_ 

Satisfaction  guaranteed  or  money  refunded. 
Pfease  a'low  4-6  weeks  for  delivery. 


D  binders. 
-  .  (U.S.  funds 


Zip- 
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Computers  and  Society 

David  D  Thornburg,  Associate  Editor 


Son  Of  A  Nation  Of  Thieves 


I  am  writing  what  I  hope  will  be  my 
last  column  on  this  topic  for  a 
while.  Some  time  back,  I  wrote  a 
piece  highly  criticizing  software 
theft  by  computer  users,  who  were 
depriving  developers  of  income  for 
their  hard  work.  The  responses  to 
this  column  were  so  defensive  of 
software  theft  that  I  published  an- 
other article  to  respond  to  some 
misconceptions  I  felt  needed  to  be 
addressed.  It  seemed  that  many 
people  took  the  position  that  any- 
thing one  could  get  away  with  was 
fair  game,  and  if  some  software  de- 
velopers went  out  of  business,  they 
should  have  chosen  better  fields  in 
which  to  make  money  to  start  with. 

There  were  a  few  letters  that 
went  on  to  justify  software  theft,  by 
pointing  out  that  manufacturers 
weren't  very  supportive  of  their 
customers  anyway,  but  I  tended  to 
treat  this  response  as  a  weak  justifi- 
cation for  unjustifiable  behavior. 

As  soon  as  this  second  article 
hit  the  streets,  my  mailbox  once 
again  filled  with  responses  from 
readers.  This  time  I  heard  from 
those  who  defended  my  position  in 
support  of  copyright  law  enforce- 
ment. However,  the  subject  of  poor 
after-sale  support  reared  its  ugly 
head,  and  since  these  people  were 
not  using  this  phenomenon  to  justi- 
fy software  copying,  I  thought  it 
was  worth  a  little  investigation. 
After  making  a  few  calls  and  ex- 
ploring some  problems  with  soft- 
ware [  had  purchased,  I  found  that 
the  readers'  horror  stories  were  all 
too  true. 

I  think  it's  time  for  a  heart-to- 
heart  talk  with  software  developers 
and  manufacturers.  If  my  position 
on  copying  irritated  a  lot  of  soft- 
ware users,  this  article  may  initate  a 
few  developers  as  well. 

We  shall  see. 

The  Nature  Of  Software 

It  seems  to  me  that  all  companies  in 


the  software-development  business 
should  acknowledge  that  a  com- 
puter program  is  not  a  static  docu- 
ment, sold  into  a  marketplace  with 
no  need  for  after-sale  suppfort.  Even 
shoe  salesmen  acknowledge  that  a 
customer  may  have  to  wear  a  pair 
of  shoes  for  a  few  hours  to  make 
sure  they  fit  properly. 

There  are  two  important  rea- 
sons for  after-sale  software  support. 
First,  the  customer  may  have  pur- 
chased a  program  to  perform  a  task 
that's  not  quite  what  the  program 
was  designed  to  do.  This  happens  a 
lot.  Software  names  and  advertise- 
ments are  not  always  good  indica- 
tors of  the  program's  ability  to 
function,  and  software  reviews  are 
not  always  helpful.  Many  times  the 
program  can  be  used  to  do  what  the 
customer  wanted,  but  the  manual 
isn't  clear  enough.  In  this  case,  it  is 
essentia!  that  a  software  manufac- 
turer provide  sufficient  support  to 
help  customers.  New  applications 
for  the  product  should  be  flagged  so 
they  can  be  addressed  in  later  re- 
leases of  the  product,  thus  amplify- 
ing the  software's  value. 

The  second  reason  for  provid- 
ing good  customer  support  is  that 
all  software  is  buggy  to  one  extent 
or  another.  For  example,  some  pro- 
grams I  have  used  since  1984  sud- 
denly stopped  working  because 
Apple  "fixed"  its  operating  system. 
As  a  software  developer,  this  is  an 
annoyance,  but  I  must  upgrade  my 
software  if  I'm  to  have  any  more 
sales,  since  all  the  new  computers 
(and  most  of  the  old  ones)  will  be 
using  the  new  operating  system 
within  a  few  months.  This  is  expen- 
sive, of  course,  but  it  isn't  the  cus- 
tomer's fault. 

Aside  from  this  type  of  bug, 
there  are  those  bugs,  indigenous  to 
programs,  that  can  lie  fallow  for  a 
long  time  before  anyone  notices 
them.  These  too  must  be  fixed,  and 
the  customer  has  a  right  to  benefit 


from  these  fixes,  since  most  bugs 
are  found  by  the  customers  any- 
way. My  ovm  company,  Innovision, 
is  in  its  second  year  of  production  of 
Calliope,  and  we  are  still  finding 
gremlins  in  the  code.  I  don't  know 
any  other  developer  of  a  sophisti- 
cated program  who  has  done  any 
better  in  releasing  bug-free  code. 

The  point  is,  as  the  designer 
and  manufacturer  of  these  products, 
bugs  are  our  problems,  not  the  cus- 
tomers'. Many  readers  complained 
that  software  companies  were  rude 
to  them  when  they  told  them  about 
the  bugs  in  their  programs.  Why? 
The  customer  didn't  put  them 
there — the  developer  did. 

Ttie  Nature  Of  Support 

Let's  say  you  are  a  responsible  soft- 
ware developer  and  you  have  a 
schedule  for  bug  fixes.  How  does 
the  customer  benefit  from  these  re- 
pairs? First,  if  the  repair  is  for  a 
feature  that  seriously  cripples  the 
functional  ability  of  the  product — 
or  worse,  destroys  the  user's  data — 
new  disks  should  be  sent  to  the 
entire  installed  base  of  users  at  ab- 
solutely no  cost.  Customers  should 
be  encouraged  to  send  registration 
cards  to  software  developers,  in  or- 
der for  those  companies  to  be  able 
to  be  reached.  If  car  companies 
have  to  conduct  recalls  for  over- 
sights that  can  damage  their  users, 
we  need  to  support  recalls  for  soft- 
ware that  can  damage  data. 

As  far  as  I'm  concerned,  it's 
fine  to  ask  the  customer  to  return 
the  original  disk  first,  so  you  don't 
have  to  pay  for  new  media,  but  it's 
not  OK  to  charge  for  "upgrades" 
that  are  actually  bug  fixes.  If  you're 
concerned  about  the  cost  of  upgrad- 
ing customers  for  life,  build  this 
cost  into  your  product  price  in  the 
first  place,  and  let  the  customer 
know  why  the  product  costs  so 
much.  The  customer  who  balks  at  a 
$100   software  package  because 
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disks  only  cost  $2  needs  to  be  told 
where  that  n\oney  is  going.  On  the 
other  hand,  it  is  annoying  for  a 
customer  to  be  charged  an  extra 
$10-$50  for  a  disk  that  repairs  cer- 
tain bugs  not  present  on  new  re- 
leases of  the  product,  while  the  new 
releases  are  sold  to  new  customers 
at  the  old  price — new  customers 
don't  have  to  pay  extra  for  the  "de- 
bugged" version.  Remember,  your 
customers  are  your  friends,  and  you 
should  treat  them  as  such. 

Oversold  Programs 

While  not  in  the  category  of  bugs, 
there  is  an  aspect  of  software  mar- 
keting that  can  cause  as  much  user 
frustration  as  a  buggy  program,  I'm 
talking  about  programs  with  "fea- 
tures" that  never  made  it  from  the 
ad  copy  to  the  product. 

As  a  member  of  the  press,  I'm 
deluged  with  glitz  on  a  daily  basis. 
Most  of  the  programs  I  get  are  pret- 
ty good,  but  lately  I've  been  getting 
some  heavily-hyped  software  that's 
a  waste  of  electricity  to  boot  up.  In 
fact,  it  seems  the  fancier  the  promo- 
tion, the  worse  the  software.  Trag- 
ically, much  of  the  Apple  IIGS 
software  falls  into  this  category. 
This  same  software  is  backed  by 
megabucks  ad  campaigns  designed 
to  get  it  into  the  lap  of  every  Apple 
IIGS  owner. 

Unfortunately,  because  many 
users  don't  know  who  to  blame, 
I've  been  hearing  from  readers  who 
are  complaining  about  the  "slow 
speed"  of  the  IIGS  graphics,  when 
in  fact,  the  fault  lies  in  the  over- 
promoted  software,  not  in  the  com- 
puter. By  the  way,  I'm  also  an 
Apple  IIGS  software  developer  and, 
yes,  development  for  this  machine 
is  hard,  but  that's  my  problem,  not 
the  customer's. 

Some  software  companies  ap- 
pear to  have  allocated  too  much 
money  for  advertising  and  not 
enough  for  software  development. 
This  approach  leads  to  immense 
initial  sales,  and  based  on  letters 
from  readers,  it  leads  to  a  lot  of 
dissatisfied  customers.  It's  time  we 
reexamined  our  priorities. 

Why  Are  You  In  Business? 

The  whole  foundation  of  business 
is  to  find  a  need  and  fill  it.  Business- 
es exist  to  serve  the  needs  of  their 
customers.  In  our  quest  for  financial 


wealth,  many  people  place  the  fo- 
cus on  money  as  though  that  were  a 
goal  in  itself. 

While  money  is  an  important 
part  of  business,  and  profitability  is 
essential,  the  way  we  think  of  mon- 
ey needs  to  be  examined.  I've  seen 
a  lot  of  companies  that  operated 
from  the  spreadsheet.  The  entire 
focus  was  on  bringing  in  the  maxi- 
mum amount  of  cash  with  the  least 
amount  of  effort.  Most  of  these 
companies  have  disappeared,  but 
for  a  while,  it  seemed  their  stars 
were  rising.  An  alternative,  and  far 
healthier  view,  is  taken  by  compa- 
nies based  on  the  notion  of  service 
to  customers.  In  such  organizations, 
money  is  viewed  as  "applause,"  It 
is  the  reward  that  comes  from  pro- 
viding service — from  truly  meeting 
the  needs  of  customers.  This  mes- 
sage lies  at  the  heart  of  the  numer- 
ous "in  pursuit  of  the  search  of  one- 
minute  excellence"  books  on  the 
market  today.  And  yet,  in  their 
quests  for  the  easy  buck,  many 
companies  still  fail  to  understand 
the  functions  of  their  business. 

Companies  that  don't  take  re- 
sponsibility for  their  products  not 
only  hurt  themselves,  they  also 
hurt  our  entire  industry.  My  readers 
have  showered  me  with  horror  sto- 
ries (no  more  please!),  and  I  have,  in 
a  few  cases,  been  so  shocked  that  I 
called  the  companies  in  quesdon  to 
try  to  get  things  straightened  out.  In 
most  cases  the  problem  was  one  of 
miscommunication,  so  the  problem 
was  solved.  However,  in  a  disturb- 
ing number  of  cases,  the  atdtude 
was  one  of  caveat  emptor — an  atti- 
tude that  has  no  place  in  our  society 
today. 

Let's  put  some  pride  back  in 
our  industry.  Let's  realize  that  our 
customers  are  our  most  treasured 
asset,  and  let's  start  treating  them 
as  we  should.  If  we  do,  we  will  all 
be  rewarded  beyond  our  dreams. 
Developers  will  be  able  to  make  a 
living  from  their  efforts,  and  com- 
puter users  will  get  the  quality  and 
service  they  deserve. 

Dr.  Thornburg  welcomes  letters  from 
readers  and  can  be  reached  at  P.O.  Box 
1317,  Los  Altos,  CA  94023.  ^ 
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The  World  Inside  the  Computer 


Fred  D'lgnazio,  Associate  Editor 


Computer  Learning  Month 


You  will  be  getting  this  issue  just  as 
you  gear  up  for  another  school  year 
as  an  educator,  a  parent,  or  a  stu- 
dent. In  case  you  haven't  heard, 
October  1987  has  been  designated 
by  Congress  as  Computer  Learning 
Month,  It's  an  opportunity  to  think 
about  how  computers  can  enrich 
learning  in  the  classroom  and  at 
home,  and  to  remember  how  far 
we've  come  in  a  few  short  years. 

1  began  writing  this  monthly 
column  for  COMPUTE!  back  in 
April  1982.  At  that  time  only  about 
20  percent  of  U.S.  schools  used 
computers  in  the  classroom.  Now, 
five  years  later,  the  figure  is  above 
96  percent  (99  percent  of  all  public 
middle  and  secondary  schools). 

In  1982,  there  were  only  a  few 
thousand  computers  in  public 
schools.  Now  there  are  more  than 
one  million.  Over  15  million  stu- 
dents and  500,000  teachers  use 
computers. 

These  are  momentous  changes. 
But  even  more  important  is  how 
computer  use  has  evolved.  Back  in 
the  early  1980s,  almost  all  com- 
puter instruction  centered  on  learn- 
ing programming  and  the  internal 
operation  of  computers.  Computers 
were  taught  in  special  laboratories, 
separate  from  regular  classrooms 
and  regular  teachers.  Boys 
swarmed  around  computers,  both 
during  and  after  school,  but  girls 
were  nowhere  to  be  seen. 

Today,  programming  is  still 
taught  in  many  schools  (for  good 
reason — as  a  problem-solving  and 
thinking  skill  and  to  convey  a 
working  understanding  of  how 
computers  process  information). 
However,  most  schools  are  moving 
away  from  programming  instruc- 
tion and  are  trying  to  integrate  com- 
puters  into  the  day-to-day 
curriculum  and  to  encourage  teach- 
ers to  use  computers  to  enrich  les- 
sons in  a  variety  of  subjects. 

I  recently  attended  the  Nation- 


al Educational  Computing  Confer- 
ence (NECC)  in  Philadelphia.  I  got 
a  moment  to  sneak  away  from  the 
hubbub  on  the  floor,  climb  the 
stairs,  and  look  out  over  the  area 
from  the  relative  quiet  of  the  press- 
room. What  a  view!  Educational 
computing — which  I  once  equated 
with  my  high  school  math  teacher 
sneaking  several  of  us  boys  into  his 
closet  in  the  back  of  the  room  to  do 
calculus  problems  on  his  home- 
made analog  computer — now  was 
big  time.  Dozens  of  colorful  booths 
filled  the  giant  arena.  The  floor  was 
alive  with  hundreds  of  excited  edu- 
cators rushing  from  booth  to  booth 
to  catch  up  on  the  latest  products 
and  ideas.  Gone  were  the  booths 
focused  on  computer  science,  algo- 
rithms, and  data  structures.  In  their 
place  were  signs  advertising  new 
programs  to  fit  into  the  K-6  science 
curriculum,  how  to  use  computers 
in  reading  and  writing,  computers 
in  American  History,  computer  pro- 
grams for  special  education.  And 
the  people  had  changed.  Instead  of 
the  young  male  hackers  of  yester- 
year, the  booths — and  attendees — 
were  made  up  of  teachers  and  ex- 
teachers,  most  of  them  female. 

Women  are  becoming  more 
prominent  in  educational  comput- 
ing at  all  levels — even  back  in  the 
classroom.  According  to  one  study, 
boys  and  girls  are  enrolled  almost 
equally  in  elective  computer  classes 
in  middle  and  high  schools. 

Another  difference:  Five  years 
ago,  few  teachers  knew  anything 
about  computers,  and  many  teach- 
ers simply  avoided  them.  Today, 
"teacher  training"  is  a  top-priority 
goal  of  all  major  state  and  district- 
level  educational  computing  pro- 
jects. And  the  results  are 
heartening.  Almost  a  third  of  all 
U.S.  teachers  and  more  than  half  of 
all  computer-using  teachers  have 
had  ten  or  more  hours  of  computer 
training. 


So  it's  time  to  celebrate.  And 
Computer  Learning  Month  is  a 
good  time  for  a  celebration. 

But  we  should  also  use  this 
month  to  set  new  goals.  There  is 
still  much  work  which  remains  to 
be  done.  For  example; 

•  On  the  average,  there  are  still 
more  than  37  students  per  com- 
puter— less  than  the  equivalent  of 
one  computer  per  classroom.  If  we 
are  to  truly  integrate  computers  into 
a  student's  daily  learning,  we  need 
more  computers, 

•  Students  in  lower-income  schools 
have  significantly  less  access  to 
computers  than  students  in  upper- 
income  schools. 

Also,  work  needs  to  continue. 
Primary  tasks  are: 

•  To  get  girls  more  involved  in  com- 
puters (especially  after  hours,  when 
boys  tend  to  take  over), 

■  To  encourage  teachers  to  incorpo- 
rate computer-assisted  learning 
into  their  daily  lesson  plans. 

•  To  make  it  clear  where  the  best 
computer  programs  fit  into  the  cur- 
riculum; then  to  distribute  the  re- 
sults so  teachers  can  easily  make 
use  of  computers  when  they  get  to 
the  right  point  in  their  lessons. 

Plan  A  Celebration 

Schools,  teacher  organizations,  and 
parent  groups  across  America  are 
holding  events  to  celebrate  Com- 
puter Learning  Month,  including 
contests,  computer  fairs,  essay  ac- 
tivities, and  computer  open  houses 
for  parents.  Why  not  join  them?  It's 
likely  that  students  and  teachers  at 
your  school  have  been  doing  some 
exciting  things  with  computers. 

For  more  information  about 
special  offers,  posters,  and  national 
contests,  write:  Computer  Learning 
Month,  Software  Publishers  Asso- 
ciation, P.O.  Box  19763,  Washing- 
ton, DC  20036-0763..  O 
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ST  Outlook 


Philip  I   Nelson 


ComputerEyes  Video  Digitizer 


This  month  we'll  look  at  Computer- 
Eyes,  an  affordable  color  video  digi- 
tizer from  Digital  Visions  in 
Needham,  Massachussets.  Video 
digitizers  aren't  exactly  new;  various 
eight-bit  versions  have  been  around 
for  years.  But  the  ST  version  has 
been  available  for  only  a  short  time. 

From  A  To  D 

It's  the  job  of  a  video  digitizer  to 
convert  analog  data  from  the  world 
around  us  (light  waves  or  sound 
vibrations,  for  instance)  into  a  series 
of  ones  and  zeros,  or  digital  values, 
which  a  computer  can  handle  con- 
veniently. A  device  that  performs 
such  a  conversion  is  known,  not 
surprisingly,  as  an  analog-to-digital 
converter,  and  that's  what  is  con- 
tained in  the  fairly  large  cartridge 
that  houses  the  hardware  part  of 
the  ComputerEyes  system. 

Apart  from  a  cord  to  the  out- 
board 9-volt  power  supply,  there's 
nothing  on  the  outside  of  the  car- 
tridge but  a  phono  jack  for  video 
input.  Into  that  jack  you  can  send 
the  signal  from  any  standard  com- 
positive video  source:  a  VCR,  video 
camera,  videodisc  player,  a  TV  set 
with  video  output,  or  even  another 
computer. 

A  comprehensive  program,  also 
included  in  the  package,  allows  you 
to  capture,  fine-tune,  and  store  an 
image  as  a  NEOchrome-  or  DEGAS- 
format  disk  file.  At  that  point,  you 
can  treat  the  image  like  any  other 
picture  file;  you  can  enhance  it  with 
a  paint  program,  display  it  in  a  slide- 
show,  make  a  hardcopy  printout, 
and  so  on. 

Hold  That  Pose 

Video  images  consist  of  a  huge 
amount  of  data.  Even  at  top  process- 
ing speed,  it  takes  the  ST  a  mini- 
mum of  several  seconds  to  capture 
and  store  the  raw  image  data  in 
memory;  during  that  time  the 
scanned  image  must  be  absolutely 


motionless.  In 
other  words, 
ComputerEyes  is 
not  a  "frame 
grabber" — you 
can't  feed  it 
changing  input 
like  a  live  TV 
broadcast  and  ex- 
pect it  to  freeze 
the  action  un- 
aided. 

One  solution 
is  to  record  the 
image  on  video- 
tape and  then 
freeze  it  on  replay  for  digitization, 
I've  had  excellent  success  using 
ComputerEyes  with  an  eight-milli- 
meter camcorder.  The  camcorder 
has  onboard  VCR  capabilities,  in- 
cluding a  very  stable  pause  mode. 
Once  you've  shot  the  tape,  digitiz- 
ing is  simply  a  matter  of  replaying 
to  the  desired  frame,  pausing,  and 
clicking  Capture  on  the  Computer- 
Eyes  program's  dialog  box. 

Not  Just  A  Brownie 

The  first  temptation  when  you  get  a 
digitizer  is  to  use  it  like  a  Brownie 
camera,  digitizing  everything  in 
sight  to  see  how  faithfully  the  com- 
puter can  reproduce  reality.  The 
figure  accompanying  this  column 
was  shot  on  eight-millimeter  video- 
tape and  then  was  digitized  using 
the  program's  16  gray-scale  mode 
(which  actually  gives  you  eight 
shades  of  gray  plus  eight  colored 
tints  of  gray,  since  the  ST's  color 
palette  has  only  eight  pure  grays). 
After  saving  the  image  as  a  lo-res 
DEGAS  file,  I  switched  to  the  mono- 
chrome monitor  and  converted  the 
lo-res  picture  to  hi-res  so  it  could  be 
typeset  in  black  and  white. 

You  lose  a  bit  of  detail  in  con- 
verting from  color  to  monochrome, 
since  the  lo-res  colors  are  replaced 
by  various  fill  patterns.  But  the  fig- 
ure gives  you  a  reasonably  accurate 


idea  of  what  is  possible.  The  major 
obstacle  to  finer  resolution  comes 
not  from  the  digitizer,  but  from  the 
ST  itself,  which  is  limited  to  a  16- 
color  palette  and  three  different 
screen  resolutions. 

Snapshots  are  amusing,  but 
the  system  allows  you  to  do  much 
more.  When  you  capture  an  image, 
ComputerEyes  initially  stores  it  in 
memory  as  a  huge  table  of  raw 
numbers.  Depending  on  what  op- 
tions you've  chosen,  the  program 
then  calculates  the  best  color  value 
for  every  pixel  on  the  screen,  dis- 
playing the  result  as  soon  as  the 
calculations  are  finished.  But  the 
raw  data  remains  in  memory  until 
you  take  another  picture  or  save  the 
current  one  to  disk.  As  long  as  the 
raw  data  remains,  you  can  adjust 
the  contrast,  brightness,  and  RGB 
values  of  the  picture  and  then  recal- 
culate it  for  a  new  display.  Some- 
times a  small  adustment  makes  a 
dramatic  change  in  the  final  image, 
and  this  scheme  offers  you  a  con- 
siderable degree  of  creative  control. 

Video  digitizers  aren't  for  ev- 
eryone, but  the  reasonably  priced 
ComputerEyes  system  is  simple  to 
use,  and  it  offers  just  about  every 
feature  a  home  user  could  want.© 
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IBM  Personal  Computing 


Donald  B.  Trive'te 


Bookshelf  On  A  Disc 


Knowledge  is  of  two  kinds.  We  know  a 
subject  ourselves,  or  we  know  where 
we  can  find  information  upon  it. 

That  quote,  and  scores  of  oth- 
ers, are  attributed  to  Samuel  John- 
son, the  eighteenth-century  English 
writer  of  dictionaries.  Using  Micro- 
soft's new  product.  Bookshelf,  I 
know  where  I  can  retrieve  quota- 
tions— By  necessity,  by  proclivity, 
and  by  delight  (Emerson) — on  al- 
most any  subject.  I  can  also  look  in 
its  thesauras  for  alternate  choices, 
and  can  check  the  spelling  of  re- 
trieve in  its  dictionary. 

Bookshelf  is  a  reference  library 
consisting  of  Bartlett's  Familiar 
Quotations,  Roget's  Thesaurus,  The 
American  Heritage  Dictionary,  The 
Chicago  Manual  of  Style,  The  World 
Almanac  and  Book  of  Facts,  a  U.S. 
zip-code  directory,  and  a  word- 
usage  manual;  the  contents  of  all 
these  books,  and  a  few  other  good- 
ies, are  recorded  on  a  disc  that's 
identical  in  appearance  to  the  audio 
compact  disc  that  holds  an  hour  of 
Billy  Joel's  music.  In  printed  form, 
these  books  take  more  than  a  foot 
of  shelf  space;  in  electronic  form 
they  occupy  less  than  40  percent  of 
the  disc's  capacity.  There's  plenty 
of  room  for  Microsoft  to  add  new 
reference  works  to  the  disc,  and 
that  is  indeed  the  intention.  Expect 
an  encyclopedia  in  some  future  ver- 
sion and  perhaps  a  directory  of  toll- 
free  telephone  numbers. 

In  order  to  run  Bookshelf,  you'll 
need  a  CD-ROM  player,  which  at- 
taches to  your  computer  like  an  ex- 
tra disk  drive.  In  fact,  that's  just 
how  it  works.  My  Sony  CD  100 
drive  is  configured  as  drive  D:  on 
my  IBM  PC.  The  Bookshelf  installa- 
tion software  has  an  option  allow- 
ing you  to  install  a  Sony,  Philips, 
Hitachi,  or  Amdek  CD-ROM  play- 
er. Currently,  Bookshelf  is  in  com- 
puter stores  in  two  versions:  about 


$300  for  the  product  itself,  and 
packaged  along  with  an  Amdek  CD 
ROM  drive  for  $1,300. 

Using  Bookshelf  is  easy,  and  as 
much  fun  as  using  any  of  the  other 
pop-up  resident  products  that  are 
so  popular  for  IBM  PCs.  Once  in- 
stalled and  activated  by  the  AUTO- 
EXEC.BAT, Bookshelf  is  called  by 
pressing  the  left  shift  and  ALT  keys. 
This  causes  a  menu  bar  to  appear 
with  12  choices  at  the  top  of  the 
screen:  Thesaurus,  Dictionary, 
Spell,  Usage,  Manual,  Almanac, 
Quote,  BIS,  ZIP,  Forms,  Options, 
Help.  Using  the  cursor  keys  to 
highlight  a  choice  and  then  press- 
ing Enter  selects  a  reference  work. 

Zipping  Around 

Let's  look  at  the  zip-code  directory. 
First,  a  window  appears  on  the 
screen  over  the  top  of  the  letter  or 
document  you're  editing.  The  win- 
dow contains  boxes  for  you  to  enter 
a  street  or  post  office  box  number,  a 
city,  and  a  state.  Once  the  state  is 
entered,  the  Bookshelf  search  soft- 
ware, called  a  retrieval  engine,  goes 
to  work  on  the  files  located  on  the 
CD-ROM  disc.  In  the  case  of  zip 
codes,  there's  a  separate  file  for 
each  state;  the  file  contains  the 
names  and  zip  codes  for  each  city 
and  town,  and  in  towns  where 
there  are  multiple  zip  codes,  there's 
a  street  directory  complete  with 
house  numbers,  where  appropriate. 
Entering  1600  Pennsylvania  Ave- 
nue, Washington,  DC,  causes  the 
zip  code,  20006,  to  display  on  the 
screen  faster  than  President  Reagan 
vetoes  tax  hikes.  The  zip-code  di- 
rectory software  has  a  special  ad- 
dress parser  that  will  automatically 
extract  a  street,  city,  and  state  when 
the  cursor  is  left  one  space  beyond 
the  state  name.  When  used  in  this 
mode,  the  zip  code  is  automatically 
inserted  at  the  proper  place. 

For  this  and  the  other  features 
to   work   correctly,   the   program 


must  have  an  intimate  knowledge 
of  your  word-proceS'sing  software 
and  how  it  works.  Bookshelf  was 
designed  and  tested  to  be  compati- 
ble with  Bank  Street  Writer,  Dis- 
playwrite.  Easy  Writer,  Microsoft 
Word,  MuUiMate,  New  Word,  PC- 
Write,  Perfect  Writer,  pfs:Write,  Su- 
per Writer,  Volkswriter,  WordPerfect, 
WordStar,  and  XYWrite  III.  Support 
for  other  popular  word  processors 
will  likely  be  added  in  the  future, 
but  even  if  your  favorite  isn't  listed, 
you  can  still  use  Bookshelf  either 
from  within  your  program  or  from 
DOS — you  just  may  not  be  able  to 
take  advantage  of  cut-and-paste 
and  automatic  parsing  features. 

Vincy,  Vinchy 

Selecting  Quote  (from  Bartlett's 
Quotations)  causes  Bookshelf  to  dis- 
play a  pull-down  menu  offering 
three  choices:  Search,  Table  of  Con- 
tents, and  General  Index.  The  search 
screen,  which  appears  over  the  doc- 
ument you're  editing,  has  three  box- 
es similar  to  the  zip-code  locator.  In 
these  you  type  not  an  address,  but 
rather  the  term  or  terms  defining 
the  quotation.  Want  to  know  who 
said  what  about  spelling?  Type  the 
word  spell  in  the  first  box  and  press 
enter  (the  other  boxes  may  be  used 
to  narrow  the  scope  of  a  search). 
The  first  lines  of  five  quotations 
appear.  By  highlighting  with  the 
cursor,  you  can  zoom  in  on  an  en- 
tire quote.  In  this  case,  the  third 
quote  is  one  from  Mark  Twain's 
Innocents  Abroad,  Chapter  19: 
"They  spell  it  Vinci  and  pronounce 
it  Vinchy;  foreigners  always  spell 
better  than  they  pronounce." 

Bookshelf  is  a  product  that  will 
significantly  affect  the  way  we  use 
computers.  It  has  dozens  of  features 
I'd  like  to  describe,  but  I  get  paid  to 
write  only  1000  words.  I  keep  tell- 
ing my  editor  what  Samuel  Johnson 
said:  No  man  but  a  blockhead  ever 
wrote  except  for  money.  © 
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Microscope 
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Sheldon  Leemon 


Not  too  long  ago,  the  closest  thing 
to  desktop  publishing  on  your 
home  computer  was  using  Print 
Shop  to  produce  greeting  cards. 
Turning  out  professional-quality 
documents  on  a  PC  required  a 
desktop  publishing  system  that  cost 
close  to  $10,000.  While  some  busi- 
nesses might  find  this  inexpensive 
when  compared  to  the  cost  of  type- 
setters, graphic  artists,  and  offset 
printing,  it's  clearly  beyond  the 
reach  of  most  individuals  and  small 
businesses.  Lately,  however,  there 
have  been  a  number  of  develop- 
ments which  indicate  that  the  ante 
required  to  get  into  desktop  pub- 
lishing may  soon  drop  to  the  $3,500 
price  range,  or  even  lower. 

The  first  two  requirements  for 
desktop  publishing  are  a  powerful 
microcomputer  and  some  good 
software.  The  two  large  home  com- 
puter manufacturers,  Atari  and 
Commodore,  each  have  machines 
that  fit  the  bill  at  very  low  prices. 
The  Atari  ST  and  Commodore 
Amiga  systems  offer  a  fast  68000 
processor,  a  megabyte  or  more  of 
memory,  640  x  400-resolution  dis- 
play capability,  and  high-capacity 
disk  storage — all  for  about  $1,000. 
The  second  requirement,  the  soft- 
ware, has  been  slower  in  coming, 
but  there  are  promising  signs.  Soft 
Logik's  Publishing  Partner  has  been 
released  for  the  ST,  and  Atari  has 
announced  that  Ready-Set-Go,  one 
of  the  first  desktop  publishing  pro- 
grams available  for  the  Macintosh, 
is  being  ported  over  to  the  ST.  On 
the  Amiga  side,  three  desktop  pub- 
lishing programs — PageSetter,  Pub- 
lisher 1000,  and  City  Desk — are  now 
available.  The  ST  and  Amiga  pro- 
grams clearly  aren't  as  strong  as 
industry  leaders  like  PageMaker  and 
Ventura  Publisher,  but  they're  quite 
good  for  first  attempts,  and  no 
doubt  will  get  even  better. 


m******!^**** 


With  the  hardware  and  software  in 


place,  the  only  remaining  problem 
is  how  to  get  the  output  onto  paper. 
No  matter  how  good  the  hardware 
and  software  are,  a  document  is  still 
going  to  look  rather  primitive  if  it's 
printed  with  a  nine-pin  dot-matrix 
printer.  The  printer  of  choice  for 
desktop  publishing  is  a  laser  print- 
er. Although  the  output  from  these 
machines  looks  almost  as  good  as 
offset  printing,  they  usually  cost 
more  than  the  computer  system 
that  drives  them.  Although  less 
than  half  the  price  of  the  Apple 
LaserWriter,  a  typical  representa- 
tive of  the  current  lot  of  these  print- 
ers still  costs  about  $3,000.  The  next 
generation,  however,  may  well  cut 
that  price  tag  in  half  again. 

Atari,  for  example,  has  an- 
nounced an  under-$l,500  laser 
printer  for  the  Mega  ST  line  of  com- 
puters. Atari's  approach  to  cost  cut- 
ting has  been  to  take  most  of  the 
electronic  "brains"  out  of  the  print- 
er and  to  have  the  computer  control 
it  directly.  This  means,  however, 
that  the  printer  will  work  only 
when  attached  to  an  ST  with  a  few 
megabytes  of  memory.  Though 
Atari's  price  sounded  shockingly 
low  when  the  printer  was  an- 
nounced in  January,  some  competi- 
tion is  on  the  way.  Okidata  recently 
introduced  the  LaserLine  6,  a  6- 
page-per-minute  laser  printer,  and 
Panasonic  has  announced  the  Laser 
Partner,  an  11-page-per-minute 
machine.  Though  the  retail  price  for 
these  machines  is  $2,000;  the  most 
probable  street  price  appears  to  be 
about  $1,500.  In  fact,  deep-cut  dis- 
counters have  already  been  adver- 
tising the  Okidata  printer  for  as  low 
as  $1,300.  While  that  may  not  seem 
inexpensive  to  you,  it's  a  far  cry 
from  the  LaserWriter,  and  in  fact,  it 
is  not  much  more  than  office-quali- 
ty impact  printers  cost. 


*•***•**••** 


As  laser  technology  becomes  more 
commonplace,   prices   for   laser 


printers  will  undoubtedly  fall  still 
further.  In  the  meantime,  however, 
impact-printer  technology  is  also 
moving  ahead.  Dot-matrix  printers 
with  24-pin  print  heads  have  final- 
ly begun  to  come  into  their  own.  By 
using  a  larger  number  of  very  fine 
wires  to  print  each  character,  these 
printers  achieve  a  much  higher  res- 
olution than  the  older  nine-pin 
printers.  This  means  that  they  can 
produce  typewriter-quality  output 
like  a  daisy  wheel  printer,  at  higher 
speeds,  and  yet  still  be  used  to  print 
out  charts  and  other  business 
graphics,  like  other  dot-matrix 
printers.  For  this  reason,  24-pin 
printers  have  begun  to  make  seri- 
ous inroads  into  the  daisywheel 
printer  market,  and  appear  to  be 
poised  to  take  the  home  and  small 
business  markets  by  storm  as  well. 
At  the  June  COMDEX  show,  almost 
every  printer  manufacturer  had  at 
least  one  24-pin  model  to  show. 

At  prices  starting  in  the 
$650-$750  range,  most  of  these 
printers  are  about  $200-$300  more 
than  their  nine-pin  counterparts. 
But  NEC  has  recently  announced  a 
new  24-pin  model,  the  NEC  5500, 
that  lists  for  only  $499.  Like  many 
of  the  new  crop  of  14-pin  printers, 
the  5500  boasts  a  graphics  density 
of  360  dots  per  inch,  as  compared  to 
the  300-dots-per-inch  density  of 
most  laser  printers.  So  while  laser 
output  may  be  faster  and  cleaner, 
the  quality  from  24-pin  printers 
should  still  compare  very  favor- 
ably, at  a  price  litde  more  than  the 
least  expensive  of  any  current  print- 
er. When  software  gets  around  to 
taking  advantage  of  these  powerful 
new  impact  printers,  desktop  pub- 
lishing may  become  an  application 
that  adds  only  $300-$400  to  the 
price  of  a  home  computer  system, 
with  complete  systems  available  for 
well  under  $2,000.  © 
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AmigaView 


Sheldon  Leemon 


Behind  The  Workbench 


Often,  you  can  tell  the  level  of  a 
user's  experience  by  the  kinds  of 
questions  he  asks.  Someone  who's 
worked  with  the  Amiga  for  a  while 
might  say  that  he's  having  trouble 
loading  a  certain  program,  while  an 
absolute  beginner  will  complain,  "I 
can't  get  into  this  disk."  It's  usually 
not  too  hard  to  figure  out  his  prob- 
lem, but  the  way  he  has  stated  it 
shows  that  he  really  doesn't  have 
any  concept  of  how  files  are  stored 
on  a  disk  or  how  you  find  out  infor- 
mation about  these  files. 

Part  of  the  problem  is  that  the 
Workbench  makes  it  so  easy  to  op- 
erate the  computer  using  the  mouse 
and  icons  that  most  of  the  time  the 
user  doesn't  have  to  worry  about 
what's  really  happening  when  he 
moves  those  pictures.  So  the  first 
time  he  comes  across  a  program 
disk  with  no  icons  on  it  at  all,  his 
natural  reaction  is,  "What  do  I  do 
now?"  At  that  point,  harsh  reality 
can  no  longer  be  hidden  behind 
pretty  pictures.  It's  time  to  sit  down 
and  have  that  difficult  talk  about 
the  bits  and  the  bytes. 

Storage  In  Files 

A  3V2-inch  Amiga  disk  holds  over 
900,000  characters  of  information, 
but  letters  and  numbers  aren't 
stored  on  the  disk  randomly.  In- 
stead, information  is  stored  in 
named  files,  which  are  made  up  of 
related  alphabetic  or  numeric  char- 
acters, or  of  computer  instructions. 
For  example,  all  of  the  computer 
instructions  that  make  up  a  word- 
processing  program  are  stored  in  a 
single  program  file.  If  you  use  the 
word  processor  to  create  and  save  a 
document  to  disk,  all  of  the  charac- 
ters that  make  up  the  document  are 
stored  in  a  single  data  file. 

A  file  has  a  number  of  attri- 
butes, such  as  its  name,  size,  and  so 
on.  To  find  out  this  information, 
you  need  a  special  type  of  program. 
The  Workbench  program,  for  ex- 


ample, displays  some  files  as  icons. 
The  name  of  the  file  appears  below 
the  icon,  and  you  can  find  out  addi- 
tional information  by  highlighting 
the  icon  and  using  the  Show  Info 
menu  item.  The  Workbench  pro- 
gram only  displays  icons  for  certain 
types  of  files,  however  (as  we  saw 
in  the  August  column).  Therefore, 
you  must  use  another  type  of  pro- 
gram to  find  information  about  the 
rest  of  the  files. 

One  such  program  is  called  the 
CLI  (Command  Line  Interface). 
You  can  find  the  icon  for  this  pro- 
gram in  the  System  drawer  on  the 
Workbench  disk  (but  only  if  you 
remember  to  turn  the  CLI  switch  on 
the  Preference  screen  to  ON). 
When  you  start  the  CLI  program, 
all  you'll  see  is  an  empty  window 
with  this  prompt:  ]>.  This  means 
the  program  is  waiting  for  you  to 
type  a  command.  If  you  type  the 
DIR  command,  you'll  get  a  list  of  all 
of  the  files  in  the  current  directory. 
Type  DIR  OPT  A,  and  you'll  get  a 
list  of  all  of  the  files  in  each  sub- 
directory as  well.  To  list  all  of  the 
files  on  an  external  disk  drive,  you 
could  type  DIR  DFl:  OPT  A.  There 
are  a  lot  of  other  CLI  commands, 
and  they  are  discussed  in  depth  in 
books  like  COMPUTEl's  AmigaDOS 
Reference  Guide.  But  the  DIR  com- 
mand is  enough  to  let  you  start 
looking  at  disk  filenames. 

Programs  That  Help 

Although  the  CLI  program  is  in- 
cluded with  every  Amiga,  it's  hard- 
er to  use  than  the  Workbench,  since 
it  requires  you  to  remember  a  lot  of 
commands.  Several  intermediate 
programs  are  available  that  com- 
bine the  power  of  the  CLI  with  the 
ease  of  use  of  the  Workbench.  For 
example,  there  are  public  domain 
programs  like  DirUtil,  which  let 
you  display  the  list  of  files  on  a  disk 
in  a  scrolling  window.  These  pro- 
grams may  be  found  on  bulletin 


board  services,  commercial  infor- 
mation services  like  CompuServe 
and  GEnie,  and  in  collections  of 
public  domain  software  like  the  one 
put  together  by  Fred  Fish.  There  are 
also  some  commercial  programs 
that  provide  even  more  elaborate 
functions,  such  as  CL7  Mate  and 
Zing. 

Once  you've  used  the  CLI  DIR 
command,  or  one  of  the  other  pro- 
grams described  above,  you'll  soon 
find  out  that  there  can  be  hundreds 
of  different  files  on  a  disk.  Some  are 
program  files,  but  many  are  data 
files.  A  data  file  is  just  a  collection 
of  information,  like  a  word  process- 
ing document,  or  a  picture  from  a 
paint  program.  You  can't  run  these 
files,  since  they  don't  contain  com- 
puter instructions  like  a  program 
does.  Data  files  are  helpful  only 
when  used  in  conjunction  with  a 
program  that  knows  what  to  do 
with  them.  How  can  you  find  out 
what  a  particular  file  does?  One 
way  is  to  try  and  run  that  file.  If  you 
type  in  the  filename  at  the  CLI 
prompt,  the  CLI  will  try  to  run  the 
program.  If  you  get  back  a  message 
that  says  that  it  was  not  an  object 
module,  you'll  know  that  it's  a  data 
file,  and  not  a  program. 

Another  way  to  tell  is  to  pay 
close  attention  to  the  name.  For 
example,  sometimes,  data  file 
names  will  end  in  a  string  of  charac- 
ters that  indicate  which  program 
will  run  them,  such  as  .pic  for  a 
picture  file,  or  .bas  for  a  BASIC 
program  file.  And,  files  named 
Readme,  Manual,  or  that  end  in  the 
characters  .doc  or  .txt  will  usually 
contain  text,  often  instructions  on 
how  to  run  the  program.  To  read 
these  files,  use  the  CLI  TYPE  com- 
mand (TYPE  Readme,  for  example), 
or  load  them  into  your  favorite 
word  processor.  If  you  look  at  the 
instructions  first,  you'll  often  find 
an  explanation  of  what  some  of  the 
other  files  are  for,  as  well.  @ 
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INSIGHT:  Atari 


Bill  Wilkinson 


Machine  Language  Graphics:  The  Final  Installment 


This  month  I  will  finally  show  you  the  machine 
language  equivalents  of  the  most  important  BASIC 
screen  I/O  operations.  We'll  begin  with  an  example. 
Suppose  we  wanted  to  implement  a  GRAPHICS  7 
statement.  From  two  months  ago,  we  know  that  the 
equivalent  low-level  statements  are 

CLOSE  #6 

OPEN  #6,12-I-16,7,"S:" 

A  direct  translation  into  machine  language  follows. 


;GRAPHICS  7 

;CLOSE  lOCB  6 

LDX 

#S60 

;  lOCB  number 

LDA 

#12 

;  the  CLOSE  command 

STA 

ICCOM,X 

;  put  in  place 

ISR 

SE4S6 

;  call  CIO 

,OPEN 

IOCB6 

LDX 

#$60 

;  lOCB  number 

LDA 

#3 

;  (he  OPEN  command 

STA 

ICCOM.X 

;  put  in  place 

LDA 

#12  +  16 

;  give  il  the  same 
;  value 

STA 

ICAX1,X 

;  as  you  would  in 
;  BASIC 

LDA 

#7 

STA 

iCAX2,X 

LDA 

#DEVICE&SFF 

;  dnn't  worry  why 

STA 

ICBAL,X 

;  this  works 

LDA 

#DEVICE/S100 

;  it  just  does. 

STA 

ICBAL+1,X 

JSR 

$E456 

;  do  the  real  work 

Don't  bother  assembling  this  code  yet — it  won't 
work  without  some  of  the  help  given  later  in  this 
article. 

Now,  if  you  all  you  ever  wanted  to  do  was 
emulate  GRAPHICS  7,  that  would  be  an  adequate 
method.  But  in  BASIC,  the  general  form  of  the 
command  is  GRAPHICS  mode,  where  mode  is  any 
numeric  variable  or  expression  or  your  choice.  It 
would  be  better  if  we  could  emulate  that  in  machine 
language.  And,  to  some  degree,  we  can. 

In  BASIC'S  GRAPHICS  statement,  the  mode 
value  is  called  a  parameter  to  the  operation.  In 
machine  language,  we  also  use  parameters.  With  the 
6502  microprocessor  that  Atari  machines  use,  we 
usually  try  to  pass  the  parameters  in  one  or  more  of 
the  three  registers  that  the  chip  possesses:  the  A 
register  (also  called  the  accumulator),  the  X  register, 
and  the  Y  register.  Suppose  you  need  to  pass  an 
lOCB  number.  Since  it  needs  to  be  in  the  X  register 
for  the  call  to  CIO  anyway,  why  not  pass  it  there? 

The  listing  that  follows  is  not  a  program  in  and 
of  itself.  Rather  it  is  a  set  of  subroutines  that  your 
program  may  call  (via  JSR)  to  implement  the  given 
operation.  At  the  very  end  of  the  article  you  will  find 
a  sample  program  that  calls  these  subroutines. 


When  you  use  the  subroutines  in  your  own  pro- 
grams, you  must  note  carefully  the  description  of  the 
parameters  that  I  have  given.  Be  sure  that  the  appropri- 
ate registers  contain  the  proper  values  before  you  jump 
to  a  subroutine. 

The  listing  is  given  without  line  numbers,  Some 
assemblers  use  line  numbers,  but,  when  they  do,  it's  for 
editing  purposes  only — the  numbers  have  no  effect  on 
the  program.  Comments  are  preceded  by  a  semicolon. 
You  may  omit  any  of  them  that  you  hke.  When  you  have 
typed  all  this  in  (and  have  checked  it  carefully  for 
errors — one  mistake  can  cause  a  lockup),  you  should 
save  it  (or  LIST  it,  depending  upon  your  assembler)  to 
disk  or  tape.  You  can  then  use  it  as  the  nucleus  of  your 
own  graphics  programs. 

Equates 

Without  these,  the  program  won't  assemble  properly 

;  the  COMMAND  byte  in  the  lOCB 

;  the  low  byte  of  the  buffer  address  (filename) 

;  the  low  byte  of  the  buffer  length 

;  auxiliary  byte  1:  type 

;  auxiliary  byte  2:  mode 

;  Central  Input/Outpul  routine 
;  ROW  CuRSor — y  position 
;  COLumn  CuRSor— x  position 
;  where  line  color  goes  for  DRAWTO 

Now  the  working  routines 

REMEMBER:  these  are  only  subroutines 

You  mast  call  them  via  JSR  from  your  own  code 


CLOSE  channel 


ICCOM 

=  $342 

ICBAL 

=  $344 

ICBLL 

=  $348 

ICAXl 

=  $34A 

ICAX2 

=  $34B 

CIO 

=  SE456 

ROWCRS 

=  84 

COLCRS 

=  85 

ATACHR 

=  763 

Parameter;    X  register  holds  lOCB  number 
On  exit:        Y  register  holds  error  code 


CLOSE 
LDA   #12 
STA    ICCOM,X 
JMP    CIO 


;  close  command 

;  in  place 

;  do  the  real  work 


OPEN  channel,lype,mode,fUe 

Parameters:  X  register  holds  lOCB  number 
A  register  holds  type 
Y  register  holds  mode 
the  address  of  the  file/device 
name  must  already  be  set  up 
in  the  lOCB- 

On  exit:        Y  register  holds  error  code 


OPEN 
STA    ICAX1,X 
TYA 


;  the  type  value 


October  1987     COMPUTE]     61 


STA    ICAX2,X 
LDA   #3 
STA    ICCOM,X 
JMP    CIO 


GRAPHICS  mode 


;  and  the  mode,  if  appropriate 

;  OPEN  command 

;  in  place 

;  the  real  work 


Parameter;    A  register  liolds  desired  mode 
On  exit:        Y  register  holds  error  code 


LOCATE 
STX    COLCRS 
STY    ROVVCRS 

LDX    #S60 
JMP    GET 


DRAWTO  x,y,color 


#$60 
CLOSE 

#$60 

#SNAME&$FF 
ICBAL,X 
#SNAME/$100 
ICBAL  +  1,X 


GRAPHICS 
PHA 
LDX 
JSR 
LDX 
LDA 
STA 
LDA 
STA 
FLA 
TAY 

AND  #16  +  32 
EOR   #16 
ORA  #12 
JMP    OPEN 


PUT  channel,byle 


save  the  mode  for  a  moment 

always  use  lOCB  #6 

be  sure  it  is  closed 
:  the  same  lOCB  again 
:  the  "S:"  device  name 
;  must  be  put  in  place 
;  before  we  go  further 
;  (take  this  part  on  faith) 
;  recover  the  GRAPHICS  mode 
;  put  it  where  OPEN  wants  it 
;  isolate  the  text  window  and  no-clcar  bits 
;  flip  state  of  the  text  window  bit 
;  allow  both  input  and  output 
;  do  this  part  of  the  work 


Parameters:  A  register  holds  byte  to  output 

X  register  holds  channel  number 
On  exit:        Y  register  holds  error  code 


PUT 

TAY 

LDA 

#0 

STA 

ICBLL,X 

STA 

ICBLL  +  1,X 

LDA 

#11 

STA 

lCCOM,X 

TYA 

JMP 

CIO 

;  save  the  byte  here  for  a  moment 

;  $0000  to  length 

;  as  noted  last  month 

;  the  command  value 

;  data  byte  back  where  CIO  wants  it 


byte  =  GET(  channel ) 

Parameter:    X  register  holds  lOCB  number 

On  exit:        A  register  holds  byte  from  GET  call 


GET 

LDA  #0 

STA    ICBLL,X 

STA    ICBLL  +  1,X 

LDA   #7 

STA    ICCOM,X 

JMP    CIO 


PLOT  x,y,color 


;  $0000  to  length... 

;  as  noted  last  month 

;  the  command  value 

;  where  CIO  wants  it 

;  believe  it  or  else,  that's  alt 


Parameters:  A  register  holds  color 

X  register  holds  x  location 
Y  register  holds  y  location 

NOTE:  not  for  use  with  GR.8  or  GR.24 


PLOT 

STX  COLCRS 

STY  ROVVCRS 

LDX  #$60 

JMP  PUT 


;  see  my  August  column 
;  these  are  just  POKEs 
;  the  5:  graphics  channel 
;  color  is  already  in  A 


byte  =  LOCATE!  x,y  ) 

Parameters:  X  register  holds  x  location 
Y  register  holds  y  location 
On  exit;        A  register  holds  color  of  point  at  (x,y) 


again,  see  column 
:  from  two  months  ago 
;  the  S:  graphics  channel 
;  color  returned  in  A 


DRAWTO 

STX 

COLCRS 

STY 

ROWCRS 

STA 

ATACHR 

LDX 

#S60 

LDA 

#17 

STA 

ICCOM,X 

JMP 

CIO 

Parameters:  A  register  holds  color 

X  register  holds  x  location 
Y  register  holds  y  location 

NOTE:  not  for  use  with  GR,8  or  GR.24 


;  once  more:  see  the  article 

;  from  two  months  ago 

;  location  763,  also  in  that  article 

;  again,  we  use  lOCB  #6 

;  the  XIO  number  for  DRAWTO 

;  is  actually  the  command  number 

;  and  that's  all  we  really  need  to  do 

Now  that  we  have  these  routines,  how  do  we 
use  them?  A  full  explanation  would  need  at  least  the 
beginnings  of  a  tutorial  book.  But  here's  a  short 
example.  First,  a  small  program  in  BASIC; 

100  GRAPHICS  3  +  16 

110  COLOR  2  :  PLOT  10,10 

120  COLOR  3  :  PLOT  20,20 

130  COLOR  1  :  PLOT  0,15  :  DRAWTO  30,15 

140  GOTO  140  :  REM  (just  wait  for  RESET) 

Now  the  same  thing  in  machine  language, 
using  the  routines  of  the  program  above.  The  only 
decision  you  will  have  to  make  is  where  in  memory 
to  place  the  assembled  code.  My  first  line  reflects 
what  should  be  a  safe  choice  for  most  assemblers 
used  in  most  48K  byte  (or  64K  byte)  machines.  If 
your  assembler  has  a  SIZE  or  MEMORY  command, 
use  it  to  get  an  idea  of  what  is  safe.  In  any  case,  LIST 
or  SAVE  your  code  to  disk  or  tape  before  assem- 
bling, just  in  case. 

*=  $6000        ;  my  "usually  safe"  location 


START  LDA    #3+16 

JSR      GRAPHICS 

LDX  #10 

LDY  #10 

LDA  #2 

JSR  PLOT 

LDX  #20 

LDY  #20 

LDA  #3 

JSR  PLOT 

LDX    #0 
LDY    #15 
LDA   #1 
JSR     PLOT 

LDX    #30 
LDY    #15 
LDA    #1 
JSR     DRAWTO 

LOOPl  JMP     LOOPl 


first 

emulate  GRAPHICS  19 

;  now  do  PLOT  10,10 

;  <x  and  y  locations) 

;  with  COLOR  2,  a  slight 

;  change  from  BASIC,  but  close 

;  similarly: 
;  we  want  PLOT  20,20 
;  with  COLOR  3 
;  one  call  does  it  all 

;  last  PLOT: 
;  PLOT  0,15 
;  with  COLOR  1 


:  and  now  the  DRAWTO: 
;  DRAWTO  30,15 
;  still  with  COLOR  1 
:  the  routine  does  the  work 

;  (loop  here  until  RESET  is  pressed) 


Append  all  of  the  code  for  all  of  ;  the  subroutines  here 

Your  assembler  may  need  .END  or  END  as 
the  very  last  line 
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The  Beginner's  Page 


C.  Regeno 


Detecting  Keypresses 


Last  month,  this  column  discussed 
INPUT  for  interactive  program- 
ming. INPUT  receives  whatever  the 
user  types  before  he  or  she  presses 
the  RETURN  or  ENTER  key, 
Vifhether  it  is  one  character,  several 
lines  of  characters,  function  keys, 
cursor  keys,  or  no  other  keys.  The 
user  can  enter  something  that  the 
computer  is  not  expecting  and 
cause  the  program  to  crash,  act 
strangely,  cause  later  errors,  or 
even  end  unexpectedly.  You  can 
make  your  programs  more  user- 
friendly  and  limit  the  input  by  scan- 
ning the  keyboard  instead. 

This  method  of  interaction  re- 
ceives input  by  scanning  the  key- 
board. The  key  pressed  is  not 
printed  on  the  screen.  This  method 
is  useful  if  you  want  your  user  to 
respond  with  just  a  one-key  an- 
swer, such  as  in  a  yes  or  no  situa- 
tion; a  multiple-choice  or  menu 
selection;  or  selecting  a  certain  let- 
ter or  number. 

The  command  to  retrieve  a  sin- 
gle keypress  depends  on  your  com- 
puter. The  Commodore  and 
Applesoft  versions  of  BASIC  both 
use  GET.  The  versions  of  BASIC  for 
the  Amiga  and  IBM  PC  and  compa- 
tibles use  INKEYS.  (Amiga  and  IBM 
BASICs  also  have  a  GET  statement, 
but  it  has  a  different  function  in 
these  versions  and  cannot  be  used 
to  retrieve  keypresses.)  The  ver- 
sions of  BASIC  for  the  Atari  ST  and 
Atari  eight-bit  models  have  no 
built-in  command  explictly  for 
reading  a  single  keypress,  but  alter- 
native techniques  for  these  ma- 
chines are  discussed  at  the  end  of 
this  article. 

A   sample   program   segment 
would  be 
200  PRINT  "PRESS  Y  FOR  YES  OR  N 

FOR  NO" 
210  K$  =  INKEYS 
220  IF  K$  =  ""  THEN  210 
230  IF  K$  =  "Y"  THEN  500 
240  IF  K$<>"N"  THEN  210 
250  REM  PROGRAM  CONTINUES  FOR 
N  RESPONSE 


500  REM  PROGRAM  CONTINUES  FOR 
Y  RESPONSE 

Line  200  prints  a  message  so 
the  user  will  know  he  or  she  needs 
to  do  something.  Line  210  assigns 
the  value  of  whatever  key  is 
pressed  to  the  variable  K$.  The  line 
works  as  shown  for  the  IBM  and 
Amiga.  If  you  have  a  Commodore 
or  Apple,  replace  line  210  with 
210  GET  K$ 

Line  220  is  used  in  case  no  key 
is  pressed.  It  is  necessary  because 
INKEYS  and  the  Commodore  ver- 
sion of  GET  do  not  wait  for  a  key- 
press. If  no  key  is  being  pressed, 
these  commands  return  a  null 
string,  "".  Line  220  detects  this  and 
keeps  the  program  in  a  loop  until  a 
key  is  pressed.  Such  loops  are  often 
used  in  conjunction  with  INKEY$ 
or  GET.  Note,  however,  that  the 
Applesoft  version  of  GET  does  wait 
for  a  keypress.  Thus,  Apple  users 
can  omit  line  220.  The  GETKEY 
statement  in  BASIC  7.0  for  the 
Commodore  128  has  the  same  ef- 
fect— it  waits  until  a  key  is  pressed, 
eliminating  the  need  to  test  for  a 
null  string. 

When  a  key  is  pressed,  line  230 
shows  that  if  the  key  pressed  is  a  Y, 
the  program  should  pass  control 
(branch)  to  line  500  and  continue. 
Line  240  checks  for  the  N  key.  If  the 
key  pressed  is  not  N,  then  the  com- 
puter branches  back  to  line  210  to 
wait  for  another  key  to  be  pressed. 
If  an  N  is  pressed,  the  program 
continues.  Notice  that  this  prevents 
user  error  by  accepting  only  Y  or  N 
and  ignoring  any  other  keypress. 

You  don't  have  to  limit  your 
input  choices  to  Y  and  N.  With 
appropriate  IF-THEN  tests  you 
could  look  for  any  key,  or  set  up  an 
entire  menu  of  single-letter  choices. 

This  method  is  also  often  used 
to  create  a  pause  in  a  program  until 
a  certain  key  is  pressed.  For  ex- 
ample, to  allow  a  user  to  read  a 
screen  of  instructions  at  his  or  her 


own  speed,  you  can  have  the  pro- 
gram wait  until  the  space  bar  is 

pressed: 

200  PRINT  "PRESS  THE  SPACE  BAR 
TO  CONTINUE." 

210  SS  =  INKEYS 

220  IF  S$<>"  "  THEN  210 

(This  and  the  following  examples 
all  use  INKEYS.  If  you're  using  a 
Commodore  or  Apple,  remember 
to  replace  that  statement  with  an 
appropriate  GET.) 

Line  220  contains  a  space  be- 
tween quotation  marks.  If  the  value 
of  SS  is  not  a  space,  then  the  pro- 
gram branches  back  to  line  210. 

Instead  of  specifying  a  particu- 
lar key,  you  can  allow  the  user  to 
press  any  key  to  continue: 

200  PRINT  "PRESS  ANY  KEY  TO 

CONTINUE" 
210  CS  =  INKEY$:IF  CS  =  ""  THEN  210 

The  IF-THEN  statement  in  line 
210  keeps  the  computer  in  a  loop 
until  a  key  is  pressed.  Note  that 
there  is  nothing  between  the  quota- 
tion marks  in  that  line.  Since  the 
Applesoft  version  of  GET  and  the 
Commodore  128's  GETKEY  wait 
for  a  key  to  be  pressed,  the  IF  test 
can  be  omitted  if  those  statements 
are  used. 

Some  keys  that  you  may  want 
to  detect  cannot  be  printed  between 
quotation  marks  in  a  program.  Ex- 
amples include  the  RETURN  key 
and  the  function  keys.  You  can  use 
CHRS  to  check  for  any  valid  char- 
acter. For  example,  CHR$(13)  is  the 
same  as  the  RETURN  or  ENTER 
key.  Look  in  your  computer  manual 
to  find  out  the  ASCII  codes  for  the 
cursor  keys  or  function  keys.  Here 
is  an  example  using  CHR$: 

200  PRINT  "PRESS  RETURN  TO 

CONTINUE/' 
210  R$  =  INKEY$;IF  RS  =  ""  THEN  210 
220  IF  R$<>CHR$a3)  THEN  210 

Another  method  is  to  check  the 
ASCII  code  of  the  key  pressed: 

300  PRINT  "PRESS  RETURN  TO 
CONTINUE." 
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310  R$  =  INKEY$:IF  R$  =  ""  THEN  310 
320  IF  ASC(RS)<>13  THEN  310 

Note  that  the  IF-THEN  state- 
ment in  line  310  is  necessary  (ex- 
cept on  the  Apple)  because  the  ASC 
function  in  line  320  causes  an  error 
when  asked  to  return  the  ASCII 
value  of  a  null  string. 

INKEY$  always  returns  a 
string  character.  You  may  choose 
any  string  variable  name.  GET  can 
retrieve  either  a  string  or  numeric 
value;  you  select  which  one  by  the 
variable  type  you  use  following  the 
GET  statement.  For  example,  a 
statement  like  GET  A$  returns  a 
single-character  string,  while  one 
like  GET  A  returns  a  single-digit 
number  (0-9).  If  you  were  to  type  a 
1,  GET  A$  would  return  the  charac- 
ter 1,  equivalent  to  CHR$(49), 
while  GET  A  would  return  the  nu- 
meric value  1.  The  string  form  is 
much  preferred  because  the  numer- 
ic form  will  stop  the  program  with 
an  error  message  if  any  key  other 
than  0-9  is  pressed, 

If  you  really  want  a  number 
rather  than  a  string,  you  can  use  the 
VAL(  )  function  to  convert  the 
string  to  a  number.  Here  is  an  ex- 
ample: Suppose  you  have  printed  a 
menu  screen  with  four  choices, 
numbered  1-4.  The  user  needs  to 
press  1,  2,  3,  or  4.  All  other  keys  are 
to  be  ignored. 

400  N$  =  INKEY$:IF  N$  =  ""  THEN  400 
410  IF  NS<"1"  OR  NS>"4"  THEN  400 
420  ON  VAL(N$)  GOTO  1000,2000, 
3000,4000 

When  testing  characters  with 
IF-THEN  statements,  you  should 
note  that  the  case  of  the  character  is 
significant.  The  computer  does  not 
recognize  Y  and  y  as  being  equiva- 
lent, nor  N  and  n.  Your  IF-THEN 
statements  must  be  more  complex 
to  check  for  both  uppercase  and 
lowercase  letters.  For  example: 

400  PRINT  "PRESS  Y  OR  YES  OR  N  OR 

NO." 
410  A$=INKEYS:IF  A$  =  ""  THEN  410 
420  IF  AS  =  "Y"  OR  A$  =  'y'  THEN  1000 
430  IF  AS<>"N"  AND  A$<>"n"  THEN 

410 
440  REM  PROGRAM  CONTINUES  FOR 

N  RESPONSE 

If  you  have  an  Amiga,  Amiga 
Basic  has  a  handy  solution — the 
UCASE$  function.  This  converts 
any  specified  string  to  all  uppercase 
characters.  For  example,  the  follow- 
ing lines  retrieve  a  character  C$  and 


insure  that  it  will  be  uppercase.  Any 
following  IF-THEN  statements  need 
only  check  for  uppercase  characters: 


PICK: 

CS  =  INKEY$:IF  C$  = 

CS  =  UCASE$(C$) 


THEN  PICK 


Scanning  The 
Keyboard  Buffer 

Another  fact  that  you  should  be 
aware  of  in  scanning  the  keyboard 
is  that  some  computers  have  a  key- 
board buffer.  When  the  computer 
detects  a  keypress,  it  stores  the  key 
value  in  memory  until  it  is  called  for 
(up  to  a  maximum  of  10-15  key- 
presses, depending  on  the  com- 
puter). Thus,  keys  pressed  when  a 
program  is  not  looking  for  input 
may  be  retrieved  by  subsequent  IN- 
KEY$  or  GET  commands. 

It  is  vrise  to  clear  the  buffer 
before  you  use  any  INKEY$  state- 
ment. Some  computers  have  a 
POKE  command  to  clear  the  key- 
board buffer.  (For  example,  POKE 
198,0  does  the  job  on  the  Commo- 
dore 64).  Another  method — if  you 
know  how  many  keypresses  the 
buffer  can  hold — is  to  use  a  FOR- 
NEXT  loop.  For  example,  the  IBM 
PC  keyboard  buffer  holds  15  key- 
presses: 

50  FOR  K  =  l  TO  I5:A$  =  INKEYS:NEXT 

K 
60  PRINT'TRESS  ANY  KEY  TO 

CONTINUE" 
70  A$  =  INKEY$;IF  AS=""  THEN  70 

Alternative  Tactics 

As  mentioned  earlier,  the  version  of 
BASIC  for  Atari's  eight-bit  comput- 
ers has  no  built-in  statement  de- 
signed specifically  to  retrieve  a 
single  keypress.  However,  you  can 
achieve  the  same  effect  by  first 
opening  a  channel  to  the  keyboard 
device  with  the  statement  OPEN 
#1,4,0,"K:",  then  using  GET#1  to 
retrieve  character  values.  (Any  un- 
used file  number  in  the  range  1-7 
can  be  substituted  for  the  1  in  these 
statements).  The  main  difference 
between  the  Atari's  GET#,  and  the 
INPUTS  and  GET  commands  de- 
scribed above,  is  that  GET#  returns 
character  code  values  rather  than 
string  characters,  so  GET#  must  al- 
ways be  followed  by  a  numeric 
variable.  If  characters  are  desired, 
the  CHR$  function  can  be  used. 
Also,  note  that  GET#  waits  for  a 


key  to  be  pressed. 

To  modify  the  first  example 
program  segment  in  this  article  for 
eight-bit  Ataris,  you  must  first  add 
lines  to  open  the  channel  for  input 
and  set  up  the  testing  variable: 

100  OPEN  #1,4,0,"K:" 
110  DIM  KS(l) 

This  needs  to  be  done  only  once  in 
the  program,  but  it  must  be  done 
before  the  first  GET#  command. 
Then  replace  line  210  with: 
210  GET#1,K:K$  =  CHRS(K) 

You  may  find  it  easier  to  sim- 
ply check  for  character  code  values 
rather  than  characters.  Refer  to 
your  BASIC  manual  for  a  complete 
list  of  Atari  ASCII  codes.  For  ex- 
ample, you  could  test  for  a  RE- 
TURN keypress  with 

300  PRINT  "PRESS  RETURN  TO 

CONTINUE." 
310  GET#1,R:IF  RolSS  THEN  310 

ST  BASIC,  for  the  Atari  STs, 
likewise  has  no  practical  command 
for  retrieving  a  single  keypress. 
(There  is  an  INPUTS  function,  but 
it  is  rather  unwieldly.)  Fortunately, 
you  can  achieve  the  same  effect 
using  the  INP  function.  This  func- 
tion retrieves  a  value  from  one  of 
the  computer's  internal  input/out- 
put (I/O)  ports.  The  ST's  keyboard 
is  actually  an  intelligent  peripheral 
with  its  own  microprocessor.  It  re- 
turns keypress  information  to  the 
computer  through  port  2.  Thus, 
INP(2)  returns  the  ASCII  value  of 
the  next  key  pressed.  (The  function 
will  wait  until  a  key  is  pressed.)  A 
statement  like  K=iNP(2)  will  as- 
sign the  ASCII  code  of  the  next  key 
pressed  to  the  variable  K.  If  you 
want  characters  instead  of  ASCII 
values,  you  can  duplicate  the  IN- 
PUTS function  with  a  statement 
like  K$  =  CHR$(INP(2)). 

The  following  program  seg- 
ment illustrates  one  way  to  read  the 
Atari's  function  keys: 

400  print  "Press  any  function  key:" 

410  k  =  inp(2) 

420  if  k<187  or  k>196  then  print  'That's 

not  a  function  key!":goto  410 
430  print  "You  pressed  the  F"; 

K-I86;"key." 
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Telecomputing  Today 


Arlan  R,  Leviton 


Top  Modem 


Group  Commander  Arlan  Smythe- 
Fawlty  grimly  surveyed  the  horizon 
for  any  sign  of  the  enemy  as  he  ner- 
vously checked  his  Spitfire's  fuel 
gauge.  He  glanced  to  his  right  and 
located  the  familiar  silhouette  of  his 
wingman's  P51-Mustang.  As  if  on 
cue,  the  Mustang's  pilot,  "Maverick" 
Duffy,  flipped  his  radio  on. 

"I've  got  Major  Von  Kreuger  and 
Baron  Schultz  on  radar  Arlan.  They're 
flying  Messerschmitts  today.  Let's 
come  to  heading  230,  climb  to  8000 
feet  and  come  in  from  behind." 

"Roger,  Maverick.  Beginning  roll 
on  the  count  of  three.  Don't  fire  until 
we're  within  WOO  yards." 

This  is  Air  Warrior,  a  fascinat- 
ing realtime  air  combat  game  tiiat  is 
gaining  a  dedicated  following  on 
the  GEnie  information  service.  The 
game  uses  sophisticated  software 
on  your  micro  and  the  GEnie  main- 
frame, working  in  tandem  to  pro- 
duce a  quick,  responsive  multi- 
player  online  flight  simulator. 

The  world  of  Air  Warrior  is 
populated  by  three  countries, 
apolitically  named  A,  B,  and  C. 
Their  macrocosm  is  an  eight  by 
eight  map  grid  that  represents 
about  1600  square  miles  of  terrain. 

About  a  dozen  different  air- 
craft of  World  War  I  and  II  vintage 
may  be  flown.  Each  plane  has  dif- 
ferent performance  characteristics, 
but  a  little  "seat  of  the  pants"  flying 
can  go  a  long  way  toward  evening 
the  odds.  I  once  managed  to  knock 
a  Zero  out  of  the  sky  with  an  old 
Fokker  Triplane  by  putting  myself 
into  a  spin  that  convinced  my  op- 
ponent that  I  was  a  goner,  and  then 
pulling  up  at  the  last  moment  with 
guns  blazing.  Some  of  the  planes 
have  data  files  that  give  you  a  real- 
istic view  of  your  own  plane  as  you 
scan  the  skies.  You  can  even  ride 
with  other  players  on  planes  that 
can  carry  a  crew,  such  as  the  B-17 
bomber. 


First  Fly— Then  Shoot 

To  be  successful  in  Air  Warrior,  you 
must  master  the  rudiments  of  fly- 
ing, just  like  the  popular  single- 
player  flight  simulators  that  are 
available  for  many  personal  com- 
puters. The  in-flight  display  of  Air 
Warrior  will  make  experienced 
microcomputer  flyers  feel  right  at 
home.  It  is  very  similar  to  other 
flight  programs,  complete  with  an 
instrument  panel  and  animated 
scenery  that  depicts  mountains, 
roads,  and  buildings. 

The  flight  controls  operate  in 
both  novice  and  expert  modes.  In 
novice  mode,  the  aircraft  are  very 
forgiving  of  maneuvers  that  would 
normally  place  the  craft  into  stalls 
or  tailspins.  Alternatively,  expert 
mode  offers  maximum  maneuver- 
ability and  performance  and  won't 
stop  a  foolish  pilot  from  putting  a 
craft  through  a  high-stress  maneu- 
ver that  will  rip  its  wings  off. 

As  in  real  flight,  other  aircraft 
appear  to  be  small  specks  until  you 
get  within  500  yards  or  so,  at  which 
time  their  silhouettes  are  easily  dis- 
cernible. You  must  be  on  the  look- 
out for  other  planes  by  checking 
your  radar.  Players  can  send  suit- 
able taunts  to  each  other  during  play 
as  they  take  potshots  at  each  other. 

Air  Warrior  software,  devel- 
oped by  Kesmai  Corporation,  may 
be  downloaded  from  GENIE.  It  is 
currently  available  for  the  Macin- 
tosh and  Amiga,  but  versions  for 
the  IBM  PC  and  Atari  ST  should  be 
ready  in  late  fall.  Players  are  noti- 
fied upon  entering  the  game  when 
new  releases  of  the  Air  Warrior  soft- 
ware and/or  terrain  maps  will  be 
available  for  downloading. 

Prospective  aces  should  be 
forewarned  that  playing  Air  Warrior 
can  be  like  eating  potato  chips: 
Near  the  end  of  your  mission,  you'll 
want  to  play  "just  one  more"  min- 
ute, then  another  minute,  and  an- 
other. Toward  the  intended  end  of 


my  last  mission,  I  decided  to  play 
for  just  a  couple  more  minutes;  the 
next  time  1  glanced  at  the  clock, 
three  hours  had  passed. 

Even  so.  Air  Warrior  is  a  delight 
to  play  and  a  marvel  of  program- 
ming prowess.  If  you  decide  to  take 
up  the  challenge,  download  the 
software  and  spend  a  lot  of  time 
reading  the  manual  and  flying  in 
the  program's  offline  practice 
mode.  This  lets  you  master  basic 
flight  maneuvers  and  commands 
before  taking  to  the  air  while  the 
meter  is  running.  You  can  enhance 
your  in-flight  survivability  signifi- 
cantly by  studying  some  of  the  Air 
Warrior  download  files  that  discuss 
dogfight  tactics. 

Half  The  Battle 

Knocking  your  opponents  out  of 
the  sky  is  only  half  the  battle — you 
must  also  safely  return  and  land  at  a 
friendly  air  strip  to  get  full  credit  for 
your  victories  in  the  air.  Air  Warrior 
keeps  a  running  total  of  your  per- 
formance and  won/lost  records. 
Updated  pilot  standings  are  posted 
every  week  or  so. 

If  you  don't  have  a  GEnie  ID, 
you  can  apply  for  one  online  via 
computer  by  selecting  half-duplex 
{local  echo  mode)  in  your  terminal 
program  and  dialing  1-800-638-8369 
at  300  or  1200  bps.  When  connect- 
ed, type  HHH  and  press  the  return 
key.  At  the  U#=  prompt,  enter 
XJMU868,AIR  and  press  return. 
You  can  also  get  info  on  GEnie  via 
voice  at  1-800-638-9636. 

Remember,  in  Air  Warrior 
there  are  no  delayed  flights  or  lost 
baggage.  See  you  in  the  not-so- 
friendly  skies.  © 
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Chrome 

Double  Hi-Res  Graphics 
Commands  For  Appiesoft 


//  you  are  frustrated  by  the  lack  of 
firmware  support  for  the  latest  Apple 
graphics  modes,  you'll  be  more  than 
pleased  with  this  Applesoft  BASIC 
extension  that  gives  you  six  new 
graphics  commands  for  the  double  hi- 
res mode  on  the  Apple  He  (Revision 
B),  He,  and  lies  computers.  DOS  3.3  is 
required. 


Here's  a  utility  that  extends  Apple- 
soft with  six  new  commands  and  a 
revised  HPLOT  to  provide  full  con- 
trol over  the  double  hi-res  graphics 
mode.  It  supports  both  mono- 
chrome and  16-color  plotting  and 
leaves  21.5K  of  RAM  for  the  Apple- 
soft programmer. 

The  whole  idea  of  double 
high-resolution  video  (including 
80-column  text)  on  the  Apple 
seems  to  be  more  of  an  afterthought 
than  an  innovation.  For  example, 
the  original  ROM  routine  for  scroll- 
ing the  80-column  screen  behaved 
more  like  two  successive  40-column 
scrolls  on  the  same  area  of  RAM 
(with  first  the  main  RAM  and  then 
the  auxiliary  RAM  switched  in). 
While  some  ROM  routines  have 
been  revised  to  improve  support  for 
double  high-resolution  graphics, 
Applesoft  BASIC  has  not  been  up- 
graded. As  a  result,  there  is  no  easy 
way  for  BASIC  programmers  to 
take  advantage  of  the  double  hi-res 
mode.  "Chrome"  changes  all  that. 

Chrome  is  a  utility  which  ex- 
tends Applesoft.  It  adds  several  new 
commands  and  revises  some  old 


Zachory  T  Smith 


ones  to  allow  full  exploitation  of  the 
double  hi-res  graphics  mode  of  the 
128K  He,  lie,  and  IlGS.  It  can  be  used 
with  either  color  or  monochrome 
monitors  to  support  screen  displays 
of  140  X  192  pixels  in  16  colors  or 
560  X  192  pixels  in  monochrome. 
Chrome  does  not  support  the 
new  medium-resolution  graphics 
mode  (80  X  48  pixels  in  16  colors). 
However,  that  mode  can  be  emulat- 
ed in  double  hi-res. 

Creating  The  Startup  Disk 

The  simplest  way  to  use  Chrome  is 
to  dedicate  a  disk  to  it.  Format  a 
fresh  disk  under  DOS  3.3.  Next, 
type  in  the  following  short  program: 

10   PRINT  CHR«  (4)"PR«3" 

15  PRINT  "DOUBLE  HI-RES  EXTENDE 

D  APPLESOFT  BEING  LOADED. " 
20  PRINT  CHR»  t4)"BRUN  CHROME" 
30  NEW 

To  have  this  setup  program  run 
automadcally  when  the  disk  is 
booted,  save  the  program  to  the 
disk  with  the  name  HELLO. 

Since  Chrome  is  written  entire- 
ly in  machine  language,  it  should  be 
entered  with  the  Apple  version  of 
the  "MLX"  machine  language  entry 
program,  found  elsewhere  in  this 
issue.  Be  sure  you  read  and  under- 
stand the  instructions  for  using  MLX 
before  you  begin  entering  data. 
When  you  run  MLX,  you'll  be  asked 
for  a  starting  address  and  an  ending 
address.  For  Chrome  (Program  1), 
give  the  following  values: 

STARTING  ADDRESS?         1800 
ENDING  ADDRESS?  1FA7 


When  you  finish  typing  in  all 
the  data  from  Program  1,  be  sure  to 
save  a  copy  before  leaving  MLX, 
When  saving,  use  the  filename 
CHROME,  since  that  is  the  name 
the  setup  program  above  looks  for. 
Be  sure  to  save  the  final  copy  of  the 
program  on  the  same  disk  as  the 
setup  program. 

To  use  Chrome,  turn  off  your 
computer,  place  in  the  drive  the 
disk  containing  the  setup  HELLO 
program  and  the  CHROME  file, 
and  turn  on  the  system.  With  this 
disk  booted,  you'll  be  provided 
with  a  new  version  of  Applesoft 
with  three  distinguishing  character- 
istics: First,  only  21. 5K  of  RAM  is 
available  for  your  programs.  Sec- 
ond, the  80-column  text  screen  is 
now  the  default  display.  And  third, 
several  new  commands  and  en- 
hancements are  available.  Only  a 
Control-Reset  will  disengage  the 
new  BASIC  and  return  you  to  stan- 
dard Applesoft. 

If  at  any  time  something  goes 
wrong  with  BASIC,  the  recover 
procedure  is  to  press  Control-Reset 
as  usual,  followed  by  CALL  6144  to 
reinitialize  Chrome's  BASIC  exten- 
sion and  its  new  tokens.  Neither  the 
reset  nor  the  call  performs  a  NEW, 
so  the  residing  BASIC  program  is 
still  there  afterwards. 

If  you  feel  adventuresome,  skip 
ahead  to  the  description  of  the  com- 
mands and  start  trying  some  of 
them.  If  you  would  rather  start  with 
a  demo  program,  type  in,  save,  and 
run  Program  2.  If  you  have  a  color 
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monitor,  switch  it  to  monochrome  if 
such  a  switch  is  available.  The  first 
part  of  the  demo  uses  monochrome 
graphics.  It  draws  ten  circles,  a  line, 
and  a  string  of  box-shaped  charac- 
ters. Switch  your  monitor  back  to 
color  and  press  Return.  You'll  see  a 
demonstration  of  the  color  mode.  It 
draws  16  lines  in  different  colors 
and  then  a  blue  oval.  Press  Return 
again  to  exit  the  demo. 

Using  the  New  Commands 

If  you've  examined  Program  2,  you 
have  already  seen  some  of  the  new 
commands.  Let's  take  a  close  look 
at  each  of  them. 

HGR  3  sets  up  a  double  hi-res 
screen  just  as  HGR  sets  up  normal 
hi-res,  including  the  four-line  text 
window  at  the  bottom  of  the  screen. 
To  switch  back  to  40  columns  from 
within  a  running  program  you  must 
give  DOS  a  PR#0  command,  such  as: 
PRINT  CHR$(4)  "PR#0"  :  HOME  :  HGR2 

If  DOS  is  not  informed  of  the 
change,  the  system  will  do  strange 
things.  Actually,  this  makes  perfect 
sense — when  you  type  PR#  from 
the  direct  mode,  it  is  not  only  exe- 
cuted as  an  Applesoft  command  but 
also  as  a  DOS  3.3  command. 

HGR  4  is  the  same  as  HGR3, 
except  that  it  sets  up  a  full  graphics 
screen  with  no  text  window  at  the 
bottom.  Unlike  HGR2  (its  normal 
hi-res  equivalent),  HGR  4  uses 
memory  from  hi-res  page  1. 

DOUBLE  puts  the  HPLOT 
command  in  560-point  mono- 
chrome mode.  In  this  mode,  each 
plot  affects  only  one  bit  of  screen 
memory.  The  particular  effect  of 
each  plot  is  determined  by  the  most 
recent  HCOLOR=  statement  (see 
the  discussion  below  of  HCO- 
LOR  =  ).  This  mode  is  most  useful 
in  conjunction  with  a  monochrome 
monitor,  where  each  bit  of  screen 
memory  corresponds  to  one  screen 
pixel.  On  a  color  monitor,  four  bits 
are  required  to  show  one  colored 
dot.  In  DOUBLE  mode  with  a  color 
monitor,  changing  one  bit  changes 
a  screen  dot's  color. 

COLOR  puts  the  HPLOT  com- 
mand in  140-point  color  mode.  In 
this  mode,  each  plot  affects  four  bits 
of  screen  memory.  The  value  speci- 
fied in  the  most  recent  COL0R= 
statement  (see  below)  will  be  stored 
in  the  four  bits  of  screen  memory  at 
the   position   specified   by   the 


HPLOT  command.  This  mode  is 
most  useful  in  conjunction  with  a 
color  monitor,  where  each  four-bit 
group  in  screen  memory  specifies 
the  color  of  one  screen  pixel.  (Since 
1 6  different  colors  can  be  displayed, 
four  bits  are  required  to  select  the 
color.  Four  bits  can  hold  values  in 
the  range  0-15.)  With  a  mono- 
chrome monitor,  each  bit  of  screen 
memory  corresponds  to  one  screen 
pixel,  so  in  COLOR  mode  v«th  a 
monochrome  monitor  each  plot  af- 
fects four  screen  dots. 

HCOLOR=  specifies  the  way 
that  the  HPLOT  and  ELLIPSE  com- 
mands affect  screen  memory  bits 
(and  hence  screen  pixels)  in  the 
DOUBLE  (560-point  monochrome) 
mode.  The  syntax  for  the  statement 
is 
HCOLOR-n 

where  n  can  have  one  of  the  follow- 
ing values: 

Value     Effect  of  plot 

0  or  4  Set  bit 

1  or  5  Clear  bit 

2  or  6  Invert  (toggle)  bit 

3  or  7  Read  bit  and  store  its  value  (0  or 

1)  in  location  6 

For  a  monochrome  screen,  set- 
ting a  bit  will  make  the  correspond- 
ing pixel  appear  white,  while 
clearing  a  bit  will  make  the  corre- 
sponding pixel  black.  After  a  bit  is 
read,  a  PEEK(6)  can  be  used  to  de- 
termine the  current  state  of  the  cor- 
responding pixel.  HCOLOR=0  is 
the  default  setting  after  an  HGR  3 
or  HGR  4  statement. 

COLOR  =  selects  the  color  to 
be  used  when  HPLOT  or  ELLIPSE 
draws  points  in  COLOR  mode.  The 
syntax  for  the  statement  is 
COLOR  ■=« 

where  «  is  a  value  in  the  range 
0-15.  The  correspondence  between 
numbers  and  colors  is  as  follows: 


0 

black 

8 

dark  blue 

1 

magenta 

9 

purple 

2 

brown 

lU 

gray  2 

3 

orange 

11 

pink 

4 

dark  green 

12 

medium  blue 

5 

gray  1 

13 

light  blue 

b 

green 

14 

aqua 

7 

yellow 

15 

vt'hite 

Chrome  provides  no  facility  to 
directly  read  the  color  of  a  pixel  in 
COLOR  mode.  However,  color  val- 
ues can  be  determined  by  switching 
to  DOUBLE  mode,  specifying  HCO- 
L0R  =  3,  and  performing  four 
successive  reads  with  HPLOT  to  col- 


lect the  four  bits  of  the  color  value, 

HPLOT  uses  the  same  syntax 

as  the  standard  Applesoft  version: 

HPLOT  xl,yl  [TO  x2,y2  [TO  x3,y3  ...]] 

However,  the  range  of  allowable 
values  for  the  horizontal  (x)  coordi- 
nates is  extended  to  0-559. 

ELLIPSE  can  be  used  to  draw 
ellipses,  circles,  and  similar  shapes. 
It  can  also  be  used  to  draw  arcs  and 
other  curved  lines.  The  syntax  for 
the  statement  is 

ELLIPSE  X  radius,  y  radius,  quadrant  [AT  x 
center,  y  center] 

The  AT  part  is  optional.  The  x  cen- 
ter and  y  center  values  specify  the 
center  of  the  figure.  If  omitted,  the 
ellipse  will  be  centered  at  the  cur- 
rent pixel  cursor  position.  This  al- 
lows faster  recursive  ellipse 
drawing  around  a  central  point. 

The  X  radius  and  y  radius  val- 
ues are  not  checked  for  validity,  but 
an  ellipse  can  go  off  the  screen 
without  problems  if  the  values  are 
not  unreasonably  large. 

Some  other  drawing  utilities 
allow  you  to  specify  the  starting 
angle  and  ending  angle  when 
drawing  portions  of  ellipses  or  cir- 
cles. For  simplicity,  ELLIPSE  only 
allows  you  to  choose  whether  or 
not  to  draw  each  of  the  four  quad- 
rants of  the  figure. 

You  specify  which  quadrants 
to  draw  using  the  quadrant  value  in 
the  ELLIPSE  statement.  The  fol- 
lowing table  shows  which  quadrant 
values  draw  corresponding  quad- 
rants of  the  figure: 

upper  left  8 

upper  right  4 

lower  left  2 

lower  right  1 

The  values  are  cumulative.  For 
example,  a  quadrant  value  of  15 
(8  +  4  -h  2  -t-  1)  is  required  to 
draw  a  complete  ellipse.  A  value  of 
9  (8  +  1)  would  result  in  only  the 
upper  left  and  lower  right  quad- 
rants being  drawn. 

Bitmapped  Images 

Chrome  also  provides  a  way  to 
place  bitmapped  images  onto  the 
double  hi-res  screen.  This  method 
of  shape  generation  is  much  differ- 
ent than  the  shape  capabilities  built 
into  the  computer.  Bitmapped 
shape  tables  are  easier  to  design 
and  can  be  drawn  more  rapidly  by 
the   system.    Shape   rotations   are 
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performed  by  switching  between 
bitmaps  rather  than  by  extra  com- 
putation when  the  shape  is  drawn. 
You  may  have  to  experiment  a 
while  before  you  feel  comfortable 
with  the  next  commands.  Beginners 
may  wish  to  ignore  the  SHAPE 
command. 

The  new  command  has  the  fol- 
lowing syntax: 
SHAPE  width,  height,  location  [AT  x,  y\ 

The  AT  portion  of  the  statement  is 
optional.  If  it  is  included,  the  x  and 
y  values  specify  the  coordinates  at 
which  the  upper  left  corner  of  the 
shape  will  be  drawn. 

The  width  value  is  added  to  the 
X  coordinate  after  each  SHAPE  exe- 
cution. You  can  use  this  value  to 
specify  the  horizontal  spacing  of 
shapes  on  the  screen. 

The  height  value  specifies  the 
height  of  the  bitmapped  image  in 
screen  lines.  All  bitmaps  are  two 
bytes  (14  screen  pixels)  wide,  so  the 
height  is  half  the  length  of  the  bit- 
mapped shape  table. 

The  location  value  specifies  the 
starting  memory  location  for  the 
bitmap  shape  table  in  RAM.  More 
information  on  Chrome's  memory 
usage  is  provided  later  in  this 
article. 

If  the  X  coordinate  for  the 
shape  does  not  begin  on  an  exact 
byte  boundary  (pixel  position  0,  7, 
14,  21,  and  so  on),  the  data  from  the 
bitmap  must  be  preshifted  before 
drawing.  Preshifling  does  not  re- 
tain the  shifted  bits.  For  instance  if  a 
full  14-bit-wide  shape  is  to  be  plot- 
ted at  coordinates  55,10,  then  six 
pixels  will  be  lost  during  shifting 
because  the  preshifter  must  move 
the  shape  over  6  bits  (55  MOD 
7  =  6).  Only  shapes  less  than  8  bits 
wide  can  be  drawn  anywhere  hori- 
zontally without  risk  of  being  partiy 
lost.  All  bitmap  data  is  in  the  same 
format  as  screen  RAM,  with  bit  7 
unused. 

The  drawing  routine  simply 
takes  the  data  from  a  buffer  and 
places  it  on  the  screen  in  exclusive- 
OR  mode.  Shapes  are  drawn  the 
same  whether  DOUBLE  or  COLOR 
plotdng  is  enabled. 

Memory  Usage 

Machine  language  programmers 
may  appreciate  the  new  commands 
as  much  as  BASIC  programmers 
will.  Following  is  a  description  of 


how  memory  is  allotted  when 
Chrome  is  being  used. 

The  ellipse  routine  keeps  most 
of  its  data  in  the  lower  16  bytes  of 
the  auxiliary  zero  page.  Main- 
memory  zero-page  use  is  limited  to 
those  locations  also  used  by  the 
standard  hi-res  routines. 

The  program  itself  begins  at 
location  $1800  hex  (6144  decimal) 
and  ends  at  $1FFF.  Screen  RAM  is 
at  $2000-$3FFF. 

When  the  program  is  BRUN 
(loaded  and  run)  it  initializes  itself 
in  five  steps.  First,  it  copies  the  high 
ROM  ($0000  to  $FFFF),  including 
Applesoft,  into  the  main  memory 
RAM  and  alters  Applesoft  to  ac- 
commodate the  new  commands. 

Once  the  copy-and-change 
phase  is  done,  four  tables  are  creat- 
ed. Two  reside  in  main-memory 
high  RAM  and  are  switched  in 
when  needed.  They  hold  video  ad- 
dresses to  speed  up  the  pixel  plot- 
ter. The  third  table,  located  at 
$1600,  is  the  new  tokenizer  table;  it 
holds  the  ASCII  keywords  of  all  of 
the  old  commands  as  well  as  those 
of  the  new  commands.  The  fourth 
table,  located  at  $1400,  is  used  by 
the  ELLIPSE  routine  only  and  holds 
the  16-bit  squares  of  0-255.  These 
values  are  also  used  to  speed  up 
pixel  position  calculations. 

The  area  from  $0800  to  $13FF 
is  free  for  machine  language  rou- 
tines and  bitmaps  of  character  sets. 

Program  1:  Chrome 

For  instajctions  on  entering  this  program, 
please  refer  to  the  "Apple  MLX"  article  else- 
where ir>  this  issue, 


1800: 
ia0B: 
1810: 
1818: 
1820: 
1B2S: 
1B30: 
1838: 
1840! 
184S: 
1850: 
1858: 
ia&0: 
1068: 
1870s 
1878: 
1880: 
1888: 
18?0: 
1898: 
18A0: 
ISAS: 
18B0: 
1888: 
18C0! 
1BC8: 
18D0: 
1808: 


A0  00 

SD  8"? 
C0  Bl 
E6  61 
19  99 
F5  A0 
16  CB 
Dl  99 

00  eD 

15  8D 
4C  8D 
DB  fl9 
8D  26 
A9  67 
23  D0 
IV  BD 
AD  97 
98  91 
AD  81 
as  E6 
B2  IB 
B3  18 
6D  99 
E8  E0 
A2  00 
EE  B7 
D0  DO 
A0  00 


84  60  A9 
C0  2C  B9 
60  91  60 
D0  F5  A0 
8F  17  F0 
00  B9  D0 
D0  F7  A0 
FF  16  B8 
93  D5  BD 
97  D5  8D 
2E  DB  A9 
19  8D  30 
D0  A9  19 
BD  22  D0 
A9  7E  BD 
21  00  A0 

19  18  69 
67  E6  67 
C0  AD  Bl 
AA  AS  80 
8D  B6  IB 
A9  D4  BD 
00  D3  OA 
07  D0  05 
Ca  D0  EA 
10  AD  B3 
A0  00  98 

20  11  F4 


D0  85 
C0  2C 
CB  D0 
00  B9 
03  C8 
D0  99 
OF  B9 
D0  F7 
3D  D7 

41  D7 

42  BD 
DB  A9 
BD  27 
A9  19 
20  D0 
00  04 
20  85 
8D  80 
C0  A9 
B0  IB 
A9  D0 
B7  18 
99  00 
EE  B0 
EE  B3 
IB  C9 
48  A2 
68  AS 


61  14 
B9  6D 
F9  F3 
2A  30 
D0  9C 
00  14 
CF  BD 
A9  3A 
A9  3E 
A9  81 
2F  FD 
5C  EF 
D0  B3 
BD  08 
A9  BB 

67  3F 

68  51 
C0  F7 
00  4D 
8D  12 
BD  E3 
A9  60 
D7  CD 
IB  E0 
IS  FA 
D3  Al 
00  20 
AS  AE 


1BE0: 
tSEB: 
1SF0: 
IBFB: 
1900: 
190B: 
1910s 
191B: 
1920: 
192B: 
1930: 
1938: 
1940! 
194B: 
1950! 
1958: 
1960: 
1968: 
1970: 
197B: 
1990: 
1988: 
1990! 
1998: 
19A0I 
19A8I 
19B0: 
19B8I 
19C0: 
19C8I 
19D0: 
19DB! 
19E0! 
19E8! 
19F0! 
19FB! 
1A00: 
lA0a! 
1A10: 
lAlBi 
1A20: 
lA2e: 
1A30: 
1A3S: 
1A40I 
lA4es 
1A50! 
1A5B: 
1A60: 
1A6BS 
1A70: 
1A78! 
1A60: 
lASBi 
1A90: 
1A98: 
1AA0: 
1AA8: 
1AB0: 
lABSi 
1AC0: 
IflCB! 
1AD0I 
1AD8: 
1AE0: 
1AE8: 
1AF0S 
1AF8> 
1B00: 
1B08: 
1B10: 
IBIB: 
1B20: 
1620: 
1B30: 
1B3B: 
1B40: 
1B48: 
1B50: 
1B5S: 
IB60: 
1B6B: 
1B70: 
1B78: 
1BB0: 
1B88: 


26  99  00 
D9  C8  C0 
8D  7F  ID 

45  85  00 
01  05  04 
62  ID  6B 
8D  08  C0 
00  14  EB 
C0  60  C7 
3E  IF  43 
4F  35  42 
30  C5  45 
C5  00  C9 
08  E9  6B 
0A  AB  B9 
19  48  4C 

30  03  4C 
C9  34  D0 
33  D0  03 

19  20  88 
92  19  20 
AD  54  C0 
C0  60  80 

00  00  01 
40  20  67 
51  A6  50 
50  E0  30 
A9  2C  20 
E0  C0  B0 
A9  B0  BD 
BD  98  19 

20  Al  19 
El  20  4E 
CI  D0  12 

19  86  E3 
F3  lA  4C 
60  4C  06 
0D  lA  AD 
AD  57  C0 
C0  8D  0D 
85  El  83 
97  19  86 
80  54  C0 
SO  35  C0 
E6  27  CA 
8D  34  C0 

19  10  19 

48  46  El 
E0  20  00 
83  E0  60 
03  BD  99 
03  4C  00 
F0  E9  A5 
F0  02  B0 
B0  D9  BD 
85  26  BD 
85  27  A4 
80  B2  lA 
B9  00  00 
C0  2C  93 
A0  01  90 
AB  BD  9A 
10  E0  02 

01  31  26 
60  11  26 

31  26  91 
26  60  00 

46  El  66 
46  E7  66 
A9  IB  48 
8E  F2  lA 
38  E5  £0 
El  B0  12 

49  FF  69 

00  QA  A2 
E3  E5  E2 

01  A0  03 

02  A5  01 

03  84  lA 
02  85  D2 
Dl  A4  03 
B5  D3  A5 
D4  BD  EF 
F3  IB  BD 
30  03  20 
AS  IB  3B 


DB  AS 
C0  90 
A9  00 
85  03 
A2  06 
AA  A5 

90  00 
8A  D0 
19  CD 
4F  4C 
4C  C5 
4C  4C 
40  B0 
B0  03 
23  19 
Bl  00 
FE  F6 
03  4C 
4C  0A 

19  4C 
SB  19 
AO  5F 
00  00 
02  04 
DO  20 
Cf  02 
B0  4C 
C0  DE 
3D  68 
98  19 
60  C9 
B6  E2 
lA  20 

20  C0 
B4  E6 
E4  19 
F2  AD 
53  C0 
AD  5E 
C0  A9 
E2  85 
27  B4 

91  26 
91  26 
10  EB 
4C  Bl 
AS  E0 
66  E0 
IC  6B 
60  A5 
19  2C 
IC  A6 
El  C9 
DF  A5 
80  C0 

00  09 
E0  A3 
09  D4 
BE  00 
19  10 

01  88 
19  AE 


90 
00 


91  26 
26  60 
2C  98 
E0  46 
E6  46 
A9  F6 
EB  A0 
85  D0 
49  FF 
01  90 
01  38 
B0  06 
85  02 
E9  00 
A6  lA 
B4  00 
AS  01 
D0  85 
IB  8D 
04  IB 
6C  lA 
E9  01 


27  99 
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A5 

16 

75  : 

5C       OR  X  =  0  TO  15:  READ  A: 

»DK 

1D90: 

01 

95 

01 

A5 

17 

75 

02 

95  : 

S3        E 

X  +  768, A: 

NEXT 

_ 
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A  BUTTON  Command 

For  Amiga  Basic 


Take  advantage  of  the  mouse  and  icon 
interface  with  this  subprogram  that 
you  can  use  in  your  own  Amiga  Basic 
programs.  A  demo  that  lets  you 
change  the  speed  and  gender  of  the 
Amiga's  voice  is  included. 


Perhaps  more  than  any  other 
BASIC,  Amiga  Basic  is  extensible. 
New  commands  are  easily  added  to 
the  language.  "BUTTON"  takes  ad- 
vantage of  this  flexibility  to  add  a 
BUTTON  command  similar  to  the 
one  in  Microsft  BASIC  for  the 
Macintosh. 

Buttons  allow  a  menu-like 
choice  without  forcing  the  user  to 
hold  down  the  right  mouse  button 
and  perform  a  menu  action.  In  gen- 
eral, you  use  a  button  when  you 
want  the  choice  to  be  intrusive;  you 
use  menus  when  you  want  the 
choice  to  be  available  only  when 
the  user  looks  for  it. 

Buttons  are  useful  when  you 
want  several  choices  to  be  displayed 
and  alterable  at  once.  As  an  ex- 
ample, if  you  were  writing  a  tele- 
communications terminal  program, 
you  would  probably  want  all  the 
options  to  be  displayed  on  the 
screen  simultaneously.  (See  the  ac- 
companying figure  for  an  example.) 
All  at  once,  the  user  can  see  that  the 
speed  of  communication  varies  be- 
tween 110  and  9600;  parity  may  be 
even,  odd,  or  not  selected;  and  the 
data  and  stop  bits  may  be  selected  in 


Robert  Kotz 


a  given  number  of  ways.  All  of  the 
current  settings  are  clearly  shown. 

The  BUTTON  command  is  im- 
plemented as  a  subprogram.  Sub- 
programs differ  from  subroutines  in 
that  subprograms  allow  local  vari- 
ables that  cannot  be  accessed  by  the 
main  program  or  other  subpro- 
grams. When  you  use  a  subpro- 
gram, you  don't  have  to  worry 
about  using  a  variable  that  is  al- 
ready being  used  by  the  main  pro- 
gram— no  side  effects  are  possible 
(unless  you  specify  that  certain 
variables  are  to  be  shared  among 
program  and  subprograms).  Al- 
though the  variables  are  indepen- 
dent, it  is  possible  to  pass  values 
(called  parameters)  back  and  forth 
between  the  subprogram  and  its 
calling  program. 

O  M  bHj/ietmd  (^  S  ditl  bits        j&f  „„  p«rHy 

(fi|  3BB  mil/«.ci>llll  Q  b  iUrn  bits  r\  cvro  pnrily 

O  iOB  ^HiAbcdhiI  ^  T  ditl  bite         f~)   odd  partt; 

(~)  UM  liila/aiiEoial  O  ^  <l>1*  >>»' 

(~)  2168  bHi/ieood 

(~\  toe  btfa/aicssd  A|  ■  'top  >>ll  loK  I 

(~)  tim  hHs/Mcoai  f^  2  atop  bHs 

Example:  Telecommunications  Parameters 

A  subprogram  must  begin  with 
a  SUB  statement  containing  the 
name  of  the  subprogram  and  a  list 
of  parameters.  The  END  SUB  state- 
ment marks  the  end  of  a  subpro- 
gram. All  statements  between  SUB 


and  END  SUB  are  considered  part 
of  the  subprogram  rather  than  part 
of  the  main  program. 

Program  1  is  the  subprogram 
to  implement  the  BUTTON  com- 
mand. Type  it  in  and  save  a  copy  to 
disk,  but  don't  try  to  run  it  yet.  This 
isn't  a  complete  program,  only  a 
subprogram.  Since  you  will  want  to 
merge  this  with  your  own  pro- 
grams, be  sure  to  save  it  in  ASCII 
format.  To  do  this,  you  must  use  a 
command  of  the  form 
SAVE  "filename", A 

Calling  All  Subprograms 

There  are  two  ways  for  the  main 
program  to  access,  or  call,  a  subpro- 
gram. The  formal  method  is  with  a 
statement  of  the  form 

CALL  subprogram  name  (parameter  list} 

However,  Amiga  Basic  also  permits 
you  to  omit  the  CALL  and  the  pa- 
rentheses surrounding  the  parame- 
ter list.  This  format  makes  the 
subprogram  call  look  just  like  any 
other  BASIC  statement,  so  the  sub- 
program essentially  becomes  a  new 
BASIC  command. 

Here  is  the  syntax  for  the  BUT- 
TON command: 

BUTTON  ID,  state,  title,  x  position,  y 

position,  type 

The  ID  and  state  parameters  are 
two-way  values.  Setting  them 
before  you  call  the  subprogram  pro- 
vides instructions  to  the  subpro- 
gram, and  reading  their  values  after 
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the  subprogram  is  called,  returns 
information  on  the  buttons.  The 
other  parameters  are  one-way — 
they  provide  information  to  the 
subprogram,  but  nothing  is  report- 
ed back  through  them.  One  differ- 
ence between  subprograms  and 
actual  commands  is  that  you  must 
supply  some  value  for  all  the  pa- 
rameters in  a  subprogram  call. 
None  of  the  parameters  are  option- 
al, even  in  cases  where  the  parame- 
ter values  aren't  meaningful. 

The  ID  value  is  a  unique  num- 
ber by  which  you  can  identify  each 
button.  You  may  have  any  number 
of  buttons  on  the  screen  at  once. 
Allowable  button  numbers  range 
from  1  up  to  the  maximum  number 
you  specify  in  Program  1. 

An  ID  value  of  0  has  a  special 
meaning.  When  the  subprogram  is 
called  with  this  value  in  the  first 
parameter  position,  it  checks 
whether  the  mouse  is  currently  po- 
sitioned over  any  previously  de- 
fined button.  (In  this  case,  the 
values  of  the  other  parameters  are 
not  important.)  If  the  mouse  is  over 
a  button,  then  the  ID  value  of  that 
button  is  returned  in  the  ID  param- 
eter, the  state  of  the  button  is  in- 
verted (from  1  to  2,  or  vice  versa), 
and  the  new  state  of  the  button  is 
returned  in  the  state  parameter.  If 
the  mouse  isn't  over  any  of  the 
buttons,  the  ID  parameter  will  still 
be  0  upon  return. 

Note  that  this  function  com- 
pares the  current  mouse  pointer  po- 
sition against  the  coordinates  for  all 
defined  buttons,  without  regard  for 
whether  the  buttons  are  actually 
being  displayed  on  the  screen  at  the 
time  of  the  test.  To  prevent  spuri- 
ous readings,  it  is  important  to  clear 
button  definitions  when  the  corre- 
sponding buttons  are  erased  from 
the  screen. 

The  state  parameter  deter- 
mines the  state  of  the  button  speci- 
fied by  the  ID  parameter.  If  this 
parameter  is  set  to  0  when  the  sub- 
program is  called,  then  the  current 
definition  for  the  specified  button  is 
erased.  This  makes  the  button  inac- 
tive, but  does  not  remove  it  from 
the  screen.  If  this  parameter  is  set  to 
1,  then  the  specified  button  is  dese- 
lected (turned  ofO-  Setting  this  pa- 
rameter to  2  causes  the  correspond- 
ing button  to  be  selected  (himed  on). 

The  remaining  parameters  are 


only  meaningful  the  first  time  the 

subprogram  is  called  for  a  particular 
ID  value.  Title  is  the  name  you  assign 
to  a  button,  x  position  and  y  position 
define  the  screen  coordinates  of  the 
button,  and  type  identifies  the  shape 
of  the  button  as  described  below. 
Once  a  button  is  defined,  these  fea- 
tures cannot  be  changed. 

The  subprogram  provides 
three  different  types  of  buttons. 
Type  1  is  a  rectangle  with  the  name 
of  the  button  inside  it.  When  a  type 
1  button  is  selected,  the  button 
name  appears  in  reverse  video. 
Type  2  buttons  are  squares  with 
their  names  beside  them.  When  a 
type  2  button  is  selected,  it  is 
marked  with  an  X,  Type  3  buttons 
are  circles  with  their  names  beside 
them.  When  a  type  3  button  is  se- 
lected, a  smaller  filled  circle  is 
placed  inside  the  circle.  The  figure 
shows  all  three  types  of  buttons. 

Two  preparatory  steps  are  re- 
quired when  using  BUTTON  in  your 
own  programs.  First,  your  main  pro- 
gram should  begin  with  the  state- 
ment DEFINT  a-z  to  force  all 
variables  to  default  to  short  integer 
type.  Secondly,  because  the  subpro- 
gram makes  calls  to  operating  sus- 
tem  graphics  routines,  you  must 
place  a  copy  of  the  graphics.bmap 
file  into  the  disk  directory  that  hoick 
your  program.  The  graphics.bmap 
file  can  be  found  in  the  BasicDemo 
folder  on  the  Extras  disk  that  came 
with  your  Amiga. 

Buttoned  Speecti 

The  best  way  to  learn  how  to  use 
BUTTON  is  by  looking  at  an  ex- 
ample. Program  2  illustrates  all 
three  types  of  buttons  provided  by 
the  BUTTON  subprogram.  It  sets 
up  a  control  panel  for  a  speech  syn- 
thesis demonstration.  Buttons 
allow  you  to  change  the  voice  be- 
tween male  and  female,  and  be- 
tween fast  and  slow.  There  are  also 
buttons  to  start  or  stop  the  voice.  To 
try  Program  2,  type  it  in  as  listed 
and  save  a  copy,  but  don't  try  to  run 
it  yet.  First  you  must  merge  in  the 
button  subprogram.  Use  a  com- 
mand of  the  form 
MERGE  "filename" 

where  filename  is  the  name  you 
used  for  the  ASCII  file  containing 
the  subprogram.  After  the  subpro- 
gram is  merged  in,  the  combined 


program  is  ready  to  run.  If  you 
want,  you  can  save  a  copy  of  the 
completed  program  to  avoid  having 
to  merge  the  subprogram  again. 

The  first  BUTTON  command 
in  Program  2,  in  the  FOR-NEXT 
loop,  provides  the  initial  definitions 
of  the  six  buttons.  The  second  BUT- 
TON command,  following  the 
WEND,  has  the  ID  parameter  set  to 
0  to  check  whether  the  mouse 
pointer  was  over  a  button  when  the 
mouse  button  was  clicked.  If  so,  the 
variable  ID  will  have  a  nonzero  val- 
ue upon  return,  and  array  element 
State(ID)  will  hold  the  new  state  of 
that  variable.  (Although  Program  2 
uses  a  variable  named  ID  for  the  ID 
parameter,  that's  not  mandatory. 
Any  other  variable  name  would 
work  just  as  well,)  The  final  BUT- 
TON command  is  used  to  set  the 
other  button  in  the  panel  pair  to  the 
complementary  state.  Note  that 
dummy  values  are  supplied  for  the 
last  three  parameters  in  the  latter 
two  BUTTON  commands.  These 
values  are  necessary  to  satisfy  the 
syntax  of  the  subprogram  call. 

Since  Program  2  defines  only 
six  buttons,  the  default  value  for  the 
maxbut  variable  in  the  subprogram 
is  sufficient.  Should  your  applica- 
tion require  more  than  ten  buttons, 
simply  increase  maxbut  to  whatever 
value  you  need. 

After  examining  Program  2,  try 
using  the  BUTTON  subprogram  in 
your  own  programs.  Remember 
that  you  must  place  a  copy  of  the 
graphics.bmap  file  into  the  disk 
folder  that  holds  your  BASIC  pro- 
grams for  the  program  to  function 
properly. 

Tectinical  Details 

Because  there  is  no  easy  way  for 
Amiga  Basic  to  print  text  at  an  arbi- 
trary pixel  location,  the  BUTTON 
subprogram  uses  an  Amiga  operat- 
ing system  graphic  routine  called 
Move.  Now,  characters  can  be 
placed  outside  of  normal  character 
boundaries.  The  Move  routine  is 
called  like  an  Amiga  Basic  subpro- 
gram. The  routine  has  three  param- 
eters. The  first  is  the  address  of  the 
current  window's  RastPort,  a  struc- 
ture used  by  the  operating  system. 
We  can  find  this  address  with  the 
WIND0W(8)  function.  The  other 
two  parameters  are  the  X  and  Y 
locations   (in   pixels)   that  specify 
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where  the  text  should  begin.  Here's 
an  example  of  a  call  to  Move: 
CALL  Move&  (WINDOW(8),  X^,  Y%) 

Note  that  X  and  Y  are  long  integers 
(as  the  suffix  %  shows). 

One  other  system  routine  is 
used  in  BUTTON.  This  routine, 
SetDrMd,  changes  the  default 
drawing  mode.  This  is  used  to  in- 
vert the  colors  when  a  type  1  button 
is  selected.  From  BASIC,  it's  called 
like  this: 
CALL  SetDrMd&(WINDOW(8),0fl/He) 

Value  represents  one  of  the  four 
available  drawing  modes.  The  fol- 
lowing list  shows  the  modes  and 
their  corresponding  values: 
Mode  Value 

Jaml  0 

Jam2  I 

Complement  2 

Tnversvid  3 

The  default  mode  is  Jam2.  It 
"jams"  the  foreground  and  back- 
ground colors  {as  an  8  x  8  rectan- 
gle) onto  the  screen  memory,  Jaml 
jams  only  the  foreground  color 
onto  the  screen,  allowing  you  to 
overlay  characters.  Complement 
reverses  the  colors,  changing  all 
ones  to  zeros  and  all  zeros  to  ones. 
For  instance,  if  you  are  using  a  four- 
color  screen,  color  0  would  switch 
places  with  color  3,  and  color  1 
would  switch  places  with  color  2  (it 
makes  more  sense  in  binary).  In- 
versvid  exchanges  the  foreground 
color  with  the  background  color  to 
make  inverse  characters. 


For  instructions  on  entering  ttiese  progranns. 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Programs"  elsewhere  In  this  issue. 

Program  1 .  BUTTON 

'BUTTON   subprogram* 

'  Copyright  1987,  COMPUTEl  Publi 

cations,  Inc.* 

'  ALI.  rights  reserved.* 

* 

SUB  BUTTONdD, State, TitLe$,X,Y,T 

ype)  STATIC* 

IF  ID=0  THEN  GOTO  OieckButton* 

IF  numbut>0  THEN  GOTO  Skipped* 

LIBRARY  "graphics, library"* 

rastportS,=WINDOW(  a )  * 

CALL  SetDrMd6i(rastport&,  0)* 

ma)tbut=10* 

DIM  ID(raaxbut) ,State(maxbut) ,Tit 

LeS (raaxbut) ,Type(maxbut)* 

DIM  Xl(maxbut),Yl(raaxbut),X2{max 

but) , Y2(maxbut)* 

AREA(10,10) lAREAFILL* 

* 

Skipped:* 

IF    (lD<fl    OR   ID>raaxbut   OR   St:ate<0 

OR  State>2  OR  Type>3)  THEN  EXIT 

SUB  < 

IF  State=0  THEN  GOTO  EraseButton 


IF  ID(ID)<>ID  THEN   * 

ID(ID)=ID* 

IF  ID>numbut  THEN  numbut=ID* 

TitLe?{lD)="  "+TitLe5+"  "* 

X1(ID)=X:Y1(ID)=Y   * 

Type( ID)=Type* 

END  IF* 

IF  Type(lD)<l  THEN  GOTO  EraseBut 

ton* 

State(ID)=State* 

ON  Type(ID)  GOTO  One,  Two,  Three 

* 

* 

One:* 

X2 ( ID) =X1 ( ID)+LEN ( TitLe? ( ID) ) *  10 

+1:Y2(ID)=Y1{ID)+11* 

LINE(X1(ID) ,Y1(ID) )-(X2(lD),Y2(l 

D)),0,bf* 

LINE (XI (ID) ,Y1(ID))-(X2(ID) ,Y2(I 

D)),l,b* 

IF  State=2  THEN* 

LINE(XI(ID) ,Y1(ID) )-(X2(lD),Y2{l 

D)),l,bf    * 

CALL  SetDrMd&(raatports,,5}   * 

END  IF   * 

CALL  Moves (ra8tport&,Xl( ID) +1,YI 

(ID)+8)* 

PRINT   TitLe?  ( ID)  1  CALL   SetDirHd6(r 

aatportt, 1)* 

EXIT  SUB* 

* 

Two:* 

X2(ID)=X1(ID)+20:Y2(ID)=Y1(ID)+1 

0* 

LINE  {X1(1D),Y1(ID))-(X2(1D),Y2( 

ID)),l+(State=l)* 

LINE  (X1(ID),Y2(ID))-{X2{ID),Y1( 

ID) ) ,l+(State=l)* 

LINE  (XI(ID) ,Y1{ID))-(X2(ID),Y2( 

ID)),l,b     * 

CALL  Move&(ra9tport&,Xl(ID)+23,Y 

l(ID)+8)* 

PRINT  TitLe? (ID}* 

EXIT  SUB* 

* 

Threes* 

X2(ID)=X1(ID)+12:Y2(ID)=Y1(ID)+1 

2* 

Xe=Xl ( ID)+5 ! YC=Y1 { ID)+5* 

CIRCLE  (Xc,Yc) ,12* 

IF  State=2  THEN  CIRCLE  (XC,Yc),6 

* 

PAINT  (Xg.Yc) ,l+(State=l)* 

CALL  Move6.(rastport«..Xl(ID)  +  19,Y 

1(ID)+8)* 

PRINT  TitLe$ClD)* 

EXIT  SUB* 

* 

CheckButton : * 

Xm=MOUSE(l)  :Yni=M0USE(2)* 

Checkloop:* 

ID=ID+1« 

IF  ID>nunibut  THEN* 

ID=a* 

EXIT  SUB* 

END  IF* 

IF  ID(ID)=0  THEN  GOTO  CheCklOOp* 

IF  (Xm>Xl(ID)  AND  Xm<X2(ID)  AMD 

Ym>Yl(ID)    AND   Yin<Y2(lD})    THEN    < 

State=l- ( State (ID ) =1 ) * 

GOTO  Skipped* 

END  IF    * 

GOTO  Checkloop* 

* 

EraseButton;* 

ID(ID)=0:State(ID)=0* 

TitLe$(ID)=""* 

Xl(ID)=0iYl(lD)=0   * 

Type(lD)=0* 

EXIT  SUB* 

* 

END  SUB* 

* 


Program  2.  A  BUTTON 
Demonstration 

' BUTTON  Demo* 

■  Copyright  1987,  COMPUTEl  Publi 

cations.  Inc.* 

'  ALL  rights  reserved.* 

* 

DEFINT  a-z  * 

DIM  voice(a) ,word? (9) ,State(6) ,T 

itLe$(6} ,X(6) ,Y(6) , Type (6)* 

FOR  i=0  TO  6: READ  voice ( i ) iNEXT* 

DATA  110,9,150,1,22200,64,10,0,0 

< 

FOR  i=l  TO  9: READ  wordS ( i ) : NEXT* 

DATA  one, two, three, four , five,  six 

, seven, eight, nine* 

LOCATE  1,10: PRINT  "Copyright  198 

7,  COMPUTEl  Publications,  Inc."* 

LOCATE  2, 21 1  PRINT  "All  rights  re 

served. "* 

'Initialize  buttons* 

FOR  ID=1  TO  6* 

READ  State(ID),TitLeS(ID),X(ID), 

Y(ID) ,Type(ID)* 

BUTTON  ID,State(lD) ,TitLeS(ID) ,X 

ClD),Y{ID),Type{ID)* 

NEXT  4 

DATA  1, Hale, 150, 25,1* 

DATA  2, Female, 300, 25, 1* 

DATA  1, Normal, 150, 50, 2* 

DATA  2, Fast, 300, 50, 2* 

DATA  I, Start, 155,75,3* 

DATA  2, Stop, 305, 75, 3* 

'Initialize  voice  parameters* 

GOSUB  Gender* 

GOSUB  Speed* 

GOSUB  Status* 

count=l* 

* 

here:* 

WHILE  HOUSE(0)<1* 

IF  Speak  THEN* 

SAY  TRANSLATE? (word? ( count )),VOi 

ce* 

count"count+l* 

IF  count>9  THEN  count=l* 

END  IF* 

WEND:ID=0* 

BUTTON  ID, State, "" ,0,0,0* 

IF  ID=0  THEN  GOTO  here  'mouse  pr 

essed  when  not  on  a  button* 

State(ID)=State* 

'Reverse  state  of  complementary 

button* 

IF  (ID  MOD  2)  THEN  ID2=ID+1  ELSE 

ID2=ID-1* 

State (ID2)=l-(State=l)* 

BUl'TON  ID2,State{ID2),"",  0,0,0* 

'Change  operating  conditions  ace 

ording  to  button  selection* 

ON  INT((lD/2)+.5)  GOSUB  Gender, S 

peed, Status* 

GOTO  here  * 

END* 

* 

Genders* 

IF  State(l)=2  THEN  voice(0)=110: 

voice(3)=0  ELSE  voice { 0 )=200 :Voi 

ce{3)=l* 

RETURN* 

Speed:* 

IF  State{3)=2  THEN  voice(2)=150 

ELSE  voice(2)=250* 

RETURN* 

Status:* 

speaks ( state ( 5 ) =2 ) * 

RETURN* 

* 

'Merge  BUTTON  subprogram  at  this 

point* 

* 

*  © 
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Super  Turtle  PILOT 


Here's  an  exciting  neio  language  for 
the  Commodore  64.  Graphics,  sound, 
and  disk  commands  make  it  the  most 
powerful  and  flexible  version  of  PI- 
LOT that  we've  ever  seen.  And,  for 
even  greater  flexibility,  it  allows 
BASIC  commands  to  be  included  in 
your  PILOT  programs. 


PILOT — an  acronym  for  Pro- 
grammed Inquiry,  Learning,  Or 
Teaching — is  a  programming  lan- 
guage developed  in  1968  by  John 
Starkweather.  Originally  designed 
as  a  simple  language  to  help  educa- 
tors write  computerized  lessons,  PI- 
LOT is  also  an  excellent  language 
for  teaching  beginners  how  to  pro- 
gram. In  addition  to  including  the 
standard  PILOT  commands,  "Su- 
per Turtle  PILOT"  enhances  the 
language,  adding  simple  com- 
mands for  turtle  graphics,  sprites, 
sounds,  and  disk  file  management. 
If  you  prefer  BASIC  for  certain 
tasks,  you  can  even  include  BASIC 
commands  in  your  Super  Turtle  PI- 
LOT (STP)  programs. 

Getting  Started 

Since  STP  is  a  machine  language 
program,  you  will  need  to  type  it  in 
using  "MLX,"  the  machine  lan- 
guage entry  program  found  else- 
where in  this  issue.  Be  sure  you  are 
familiar  with  MLX  before  you  begin 
typing  in  STP.  When  MLX  asks  for 
starting  and  ending  addresses,  re- 
spond with  the  following  values: 

Starting  address:     0801 
Ending  address:      2068 


Alan  Poole 


Type  in  the  data  and  be  sure  to  save 
a  copy  before  leaving  MLX. 

Although  Super  Turtle  PILOT 
is  written  in  machine  language,  it 
loads  and  runs  just  like  a  BASIC 
program. 

Program  2  is  an  example 
graphics  program.  Type  it  in  after 
running  STP.  Save  the  program, 
and  then  load  it  and  type  RUN. 

Working  with  STP  is  similar  to 
working  with  BASIC.  After  you  run 
Super  Turde  PILOT,  you  can  use 
the  standard  full-screen  editor  to 
type  in  your  PILOT  programs  just 
as  you  would  BASIC  programs.  The 
LIST,  NEW,  RUN,  LOAD,  and 
SAVE  commands  all  work  as  they 
normally  do  in  BASIC.  Note,  how- 
ever, that  multiple-statement  lines 
are  nof  allowed  in  PILOT. 

You  can  include  BASIC  com- 
mands anywhere  in  your  program, 
but  the  one-statement-per-line  rule 
still  applies.  When  assigning  values 
to  variables,  you  must  use  BASIC'S 
LET  command  or  PILOT'S  C:  com- 
mand. Normally  acceptable  BASIC 
statements  such  as  A  =  12  or  B$  = 
"TURTLE"  are  not  allowed;  you'd 
need  to  use  statements  like  LET 
A=12  or  C:B$  =  "TURTLE".  If  you 
have  a  program  made  up  of  both 
BASIC  and  STP  commands,  the 
two  can  freely  share  variables. 

The  following  commands  have 
been  added  to  make  programming 
as  easy  as  possible: 

PLIST      Sends  a  program  listing  to  the 

printer. 
DIR  Displays  the  disk  directory  on 

the  screen. 


LOCK  Disables  the  RUN/STOP  and 
RESTORE  keys  and  the  LIST 
command. 

PILOT  Syntax 

This  article  cannot  teach  you  how 
to  program  in  the  PILOT  language. 
If  you  are  already  familiar  with 
BASIC,  you  should  find  PILOT  rel- 
atively easy  to  learn.  Before  writing 
your  own  programs,  study  and 
modify  the  examples  given  here.  If 
you  are  new  to  programming,  your 
library  or  bookstore  may  have 
books  that  will  teach  you  how  to 
program  in  PILOT. 

Here's  a  short  quiz  written  in 
PILOT.  Refer  to  this  program  as  you 
read  the  description  below  of  how 
PILOT  instructions  are  put  together. 
(Many  of  PILOT'S  instructions  are 
similar  to  BASIC  commands.) 

10      R: EXAMPLE  USING  JM: 

20      T:WHAT  IS  THE  NAIIE  OF  T 

HE  LARGEST  OCEAN? 
30      T: 

40       T: ATLANTIC  OCEAN 
50      T: PACIFIC  OCEAN 
60      T:  INDIAN  OCEAN 

70  *ANSWER 
80      T; 
90      A: 
100     MiATLANTIC, PACIFIC, INDI 

110     JM:*ATLANTIC,*PACIFIC, * 

INDIAN 
120     Ts PLEASE  TYPE  ONE  OF  TH 

E  ANSWERS. 
130     J:*ANSWER 

140  *ATLANTIC 
150     T:NO,  THE  ATLANTIC  OCEA 

N  IS  THE  SECOND  LARGEST.  TR 

Y  AGAIN. 
160     J:*ANSWER 

170  *PACIFIC 
180     T: THAT'S  RIGHT  I 
190     Et 


74     COMPUTEI      October  1967 


200    *IND1AN 

210     T:NO,  THE  INDIAN  OCEAN 

{SPACE  3  IS  THE  THIRD  LARGEST 

.  TRY  AGAIN. 
220     Jj*AKSV'IER 

A  PILOT  instruction  is  divided 
into  five  parts: 

1.  Instruction  name.  One  or  two 
letters. 

2.  Conditioner.  A  V  or  an  N.  In- 
structions with  a  Y  conditioner 
are  executed  if  the  last  Match 
instruction  was  successful.  An  N 
conditioner  causes  the  instruc- 
tion to  be  executed  if  the  last 
Match  failed.  See  below  for  a 
description  of  Match.  Condi- 
tioners allow  the  program  to 
make  decisions  based  on  user 
input.  The  conditioner  is 
optional. 

3.  Expression.  A  comparison  of 
variables,  numbers,  or  strings. 
Expressions  are  placed  inside 
parentheses.  The  instruction  is 
executed  only  if  the  expression 
is  true.  The  expression  is 
optional. 

4.  Colon  (:). 

5.  Object.  Everything  that  follows 
the  colon  is  part  of  the  object. 
The  object  usually  contains  data 
for  the  command.  Some  instruc- 
tions have  subcommands  that 
are  placed  in  the  object. 

A  special  PILOT  instruction  is 
the  label.  A  label  is  a  word  preceded 
by  an  asterisk,  and  it  must  be  on  a 
line  of  its  own.  It  is  used  as  a  desti- 
nation for  jumps  to  other  parts  of 
the  code. 

STP  Instructions 

T  Type.  Displays  the  text  specified 
in  the  object.  Quotation  marks  are 
not  used.  Variables  can  be  dis- 
played by  preceding  the  variable 
name  with  a  pound  sign  (#)  for 
numeric  variables,  or  with  a  dollar 
sign  for  string  variables.  The  vari- 
able name  must  be  followed  by  a 
space  or  any  other  character  that  is 
not  a  letter  or  number.  If  you  place 
a  back  arrow  (<-)  at  the  end  of  the 
object,  the  computer  will  continue 
printing  the  next  line  at  the  same 
position  on  the  screen  (similar  to 
the  effect  of  using  a  semicolon  at 
the  end  of  a  PRINT  statement  in 
BASIC). 

R  Remark.  Used  to  put  com- 
ments in  the  program.  R:  is  similar 


to  the  BASIC  command  REM. 

A  Accept,  Similar  to  BASIC'S 
INPUT  statement.  Makes  the  com- 
puter stop  and  wait  for  the  user  to 
type  a  line.  Any  character  (includ- 
ing commas)  may  be  typed.  An  ob- 
ject is  not  required,  but  the  input 
can  be  assigned  to  a  particular  vari- 
able by  placing  the  variable  name 
in  the  object. 

M  Match.  The  object  contains  a 
series  of  items  (words  or  numbers) 
separated  by  commas.  The  com- 
puter will  search  the  last  line  typed 
from  an  Accept  for  a  match  with 
one  of  the  items  in  the  list.  If  a 
match  is  found,  the  Y  conditioner  is 
set.  Otherwise,  the  N  conditioner  is 
set.  The  position  of  the  matching 
item  in  the  list  is  also  recorded. 

J  Jump.  Similar  to  BASIC'S 
GOTO  command.  Makes  the  com- 
puter continue  executing  the  pro- 
gram at  the  label  that  matches  the 
one  in  the  object, 

JM  Jump  on  Match.  Similar  to 
BASIC'S  ON-GOTO  command. 
The  object  contains  a  series  of  la- 
bels separated  by  commas.  The 
computer  will  jump  to  the  label  at 
the  position  in  the  list  correspond- 
ing to  the  position  of  the  matched 
item  in  the  most  recently  executed 
Match  instruction.  For  example,  if 
the  last  Match  instruction  found  a 
match  for  the  third  item  in  its  object 
list,  the  JM:  instruction  will  cause  a 
jump  to  the  third  label  in  the  series, 

U  Use.  Similar  to  BASIC'S  GO- 
SUB  command.  The  computer 
jumps  to  the  label  in  the  object.  It 
will  return  to  the  line  following  the 
Use  when  an  E  (End)  instruction  is 
executed. 

UM  Use  on  Match.  Similar  to 
BASIC'S  ON-GOSUB  command. 
Like  JM:,  the  object  contains  a  se- 
ries of  labels  separated  by  commas, 
and  the  computer  will  jump  to  the 
label  at  the  position  of  the  most 
recent  match. 

E  End.  Has  two  functions.  If  a 
Use  instruction  has  been  executed, 
the  computer  will  return  to  the  line 
following  the  Use.  If  a  Use  has  not 
been  executed,  the  program  ends. 

C  Compute,  Similar  to  BA- 
SIC'S LET  command.  Assigns  val- 
ues to  a  numeric  or  string  variable. 
The  object  should  consist  of  the 
variable  name,  an  equal  sign  (=), 
and  the  value  to  be  assigned  to  the 
variable.  The  rules  for  naming  vari- 


ables are  the  same  as  in  BASIC: 
Variable  names  must  begin  with  an 
alphabetic  character  and  can  in- 
clude any  number  of  alphanumeric 
characters,  but  only  the  first  two  are 
significant  (for  example,  DOWN 
and  DOG  are  both  equivalent  to 
DO).  String  variable  names  must 
end  with  a  $.  The  value  to  be  as- 
signed to  the  variable  can  be  either 
a  literal  value  or  an  expression  to  be 
evaluated.  The  expression  can  in- 
clude other  variables,  even  ones  de- 
fined in  BASIC  lines,  and  any  of  the 
BASIC  arithmetic  operators  and 
functions.  For  example,  C:X=4  and 
C:X  =  (Y*2)-I-C0S(Z)  are  both  valid, 

PA  Pause.  Creates  a  delay.  The 
object  specifies  the  length  of  lime  to 
pause  (in  1/60-second  units). 

PC  Position  Cursor.  Sets  the 
screen  position  of  the  cursor.  The 
object  contains  two  numbers  sepa- 
rated by  a  comma.  The  first  number 
is  the  vertical  row  (0-24),  The  sec- 
ond number  is  the  horizontal  col- 
umn (0-39). 

H  Home.  Clears  the  screen  and 
places  the  cursor  in  the  top  left 
corner. 

S  Sound.  This  must  precede  all 
sound  commands.  See  the  discus- 
sion of  sound  commands  below, 

G  Graphics,  This  must  precede 
all  graphics  commands.  See  the  dis- 
cussion of  graphics  commands  be- 
low. Multiple  graphics  commands 
can  follow  a  G:  instruction  if  the 
commands  are  separated  by  semi- 
colons (;). 

F  File.  This  must  precede  all 
disk  commands.  See  the  discussion 
of  file  commands  below. 

OS  Define  Sprite.  Use  this 
command  to  define  the  shapes  of  a 
sprite.  The  first  instruction  in  each 
pattern  definition  should  consist  of 
D5:  followed  by  a  #  and  the  sprite 
number  (0-7).  Subsequent  DS:  in- 
structions are  used  to  define  the 
pattern  for  each  line  of  the  sprite. 
The  object  for  each  DS:  pattern  in- 
struction is  a  series  of  up  to  24 
periods  and  X's.  An  X  tells  the  com- 
puter to  draw  a  dot  in  the  corre- 
sponding position.  A  period 
indicates  that  nothing  is  to  be 
drawn.  Each  sprite  can  be  up  to  21 
lines  in  height,  so  up  to  21  DS: 
pattern  instructions  can  be  used  for 
each  sprite.  See  the  SPRITE  com- 
mand below  for  additional  infor- 
mation about  using  sprites  in  STP. 
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PILOT  Sound 

To  use  the  sound  commands  most 
effectively,  you  should  be  familiar 
with  the  operation  of  the  64's  SID 
chip.  Check  your  Programmer's  Ref- 
erence Guide  or  COMPUTEl's  Map- 
ping the  64  for  details. 

To  create  a  sound,  the  S:  in- 
struction is  followed  by  one,  two,  or 
three  pairs  of  numbers.  The  first 
number  in  each  pair  is  the  pitch 
(1-65535).  The  second  number  is 
the  duration  (1-255). 

To  change  the  character  of  the 
sound  produced,  the  S:  instruction 
can  also  be  followed  by  one  of  the 
following  commands: 

VOLUME  Followed  by  a  num- 
ber from  0  to  15. 

WAVE  Followed  by  a  value 
which  specifies  the  waveform:  1  for 
triangle,  2  for  sawtooth,  3  for  pulse, 
or  4  for  random  noise. 

PULSE  Followed  by  a  number 
from  0  to  4095  to  set  the  pulse 
width. 

ADSR  Followed  by  two  num- 
bers separated  by  a  comma.  The 
first  number  is  the  attack/decay 
setting  (0-255).  The  second  num- 
ber is  the  sustain/release  value 
(0-255). 

Graphics  Commands 

All  of  the  following  graphics  com- 
mands must  be  preceded  by  PI- 
LOT'S G:  instruction.  More  than 
one  command  can  follow  the  G:, 
but  multiple  commands  must  be 
separated  by  semicolons. 

Some  commands  manipulate  a 
turtle,  a  kind  of  graphics  cursor  that 
shows  your  current  screen  position. 
The  turtle  walks  across  the  screen, 
dragging  a  pen.  You  can  tell  the 
turtle  what  direction  to  go,  how  far 
to  go,  and  what  color  of  pen  to  drag. 
Turtles  make  geometric  drawing 
simple.  For  example,  here's  a  sam- 
ple program  that  draws  a  blue 
square: 

10  G: CLEAR 

20  G:PEN    BLUE 

30  G:DRAW    25rTURN    90;DRAW 

{space] 25; TURN    90 ; DRAW    25 rT 

URN    90;DSUVW    25 

CLEAR  Sets  up  and  erases  a 
high-resolution  graphics  screen 
with  a  four-line  text  window  at  the 
bottom. 

FULL  Makes  the  text  window 
disappear  to  display  full-screen 
graphics. 


MIX  Displays  a  four-line  text 

window  at  the  bottom  of  the  hi-res 
graphics  screen. 

QUIT  Returns  the  screen  to 
normal  text  mode. 

POINT  Draws  a  dot  on  the 
graphics  screen.  The  command  is 
followed  by  two  values  separated  by 
a  comma.  The  values  specify  the 
horizontal  (x)  and  vertical  (y)  coordi- 
nates of  the  point,  The  Super  Turtle 
PILOT  screen  coordinate  system  is 
quite  different  from  the  commonly 
used  one  which  places  the  0,0  point 
in  the  upper  left  comer  of  the  screen. 
In  STP,  the  0,0  point  is  at  the  center 
of  the  screen.  As  a  result,  the  x  coor- 
dinate can  range  from  —79  to  80, 
and  the  y  coordinate  can  range  from 

—  99  to  100.  Positive  values  specify 
points  above  or  to  the  right  of  the 
center,  while  negative  coordinates 
are  below  or  to  the  left. 

LINE  Draws  a  line.  LINE  is 
followed  by  coordinates  of  the  first 
point,  the  word  TO,  and  the  coordi- 
nates of  the  second  point.  The  coor- 
dinates used  are  the  same  as  those 
used  for  the  POINT  command, 
with  the  X  coordinate  in  the  range 

—  79  to  80  and  the  y  coordinate  in 
the  range  -99  to  100. 

DRAW  Tells  the  turtle  to  draw 
a  line  in  the  direction  of  its  current 
heading.  The  length  of  the  line  in 
pixels  is  specified  by  the  number 
following  the  DRAW  command. 
The  turtle  can  move  freely  on  or  off 
the  screen. 

DRAWTO  Makes  the  turtle 
draw  a  line  from  its  current  position 
to  the  point  specified  by  the  coordi- 
nates following  the  DRAWTO  com- 
mand. The  coordinate  system  is  the 
same  as  that  used  in  the  POINT 
command. 

GO  Moves  the  turtle  a  speci- 
fied number  of  pixels  in  the  direc- 
tion of  its  current  heading  without 
drawing  a  line  on  the  screen. 

GOTO  Makes  the  turtle  jump 
to  the  specified  coordinates  without 
drawing  a  line. 

TURN  Tells  the  turtle  to  turn 
the  number  of  degrees  indicated  by 
the  number  following  the  TURN 
command.  A  positive  number  turns 
the  turtle  counterclockwise,  and  a 
negative  number  turns  it  clockwise. 
For  example,  if  the  turtle's  current 
heading  is  90  degrees,  then  a  TURN 
45  command  will  change  the  head- 
ing to  135  degrees. 


TURNTO  Sets  the  angle  of  the 
turtle's  heading.  The  angle  is  speci- 
fied in  degrees,  where  0  is  east 
(right),  90  is  north  (straight  up),  180 
is  west  (left),  and  270  is  south 
(straight  down).  Since  there  are  360 
degrees  in  a  circle,  the  heading  is 
periodic  with  respect  to  360  de- 
grees. For  example,  TURNTO  360 
is  equivalent  to  TURNTO  0,  and 
TURNTO  450  is  equivalent  to 
TURNTO  90.  The  next  time  you 
move  the  turtle,  it  will  move  in  the 
specified  direction. 

PEN  Sets  the  turtle's  pen  color. 
The  command  should  be  followed 
by  a  color  number  from  0  to  15  or 
by  one  of  these  color  names; 
BLACK,  WHITE,  RED,  CYAN, 
PURPLE,  GREEN,  BLUE,  YEL- 
LOW, ORANGE,  BROWN,  LT 
RED,  DARK  GRAY,  MED  GRAY, 
LT  GREEN,  LT  BLUE,  or  LT  GRAY. 
The  PEN  command  may  also  be 
followed  by  UP,  to  make  the  turtle 
stop  drawing  lines,  or  by  DOWN, 
to  return  it  to  drawing.  PEN  ERASE 
tells  the  turtle  to  erase  rather  than 
draw  as  it  moves. 

FILL  Moves  the  turtle  like  the 
DRAW  command,  but  the  turtle 
also  fills  in  to  the  right  with  color  as 
it  moves.  The  fill  continues  until  it 
is  blocked  by  something  previously 
drawn  on  the  screen.  If  the  fill 
reaches  the  right  side  of  the  screen, 
it  condnues  on  the  other  side.  As  a 
result,  you  should  use  this  com- 
mand only  when  the  turtle  is  in  a 
previously  drawn  enclosed  shape. 

BKGD  Sets  background  color 
of  the  graphics  or  text  screen. 

WINDOW  Sets  background 
color  of  the  text  window  on  the 
graphics  screen. 

BORDER  Sets  the  border  color 
of  the  graphics  or  text  screen. 

SPRI'TE  Draws  a  sprite  on  the 
text  or  graphics  screen.  The  com- 
mand should  be  followed  by  the 
sprite  number,  a  comma,  and  the 
coordinates  at  which  the  sprite  is  to 
be  positioned.  Unlike  the  other 
graphics  commands,  the  SPRITE 
command  uses  the  standard  VIC 
chip  coordinates  to  specify  sprite 
position — X  coordinates  can  be  in 
the  range  0-511,  and  y  coordinates 
can  be  in  the  range  0-255.  How- 
ever, only  X  coordinates  of  24-343 
and  y  coordinates  of  50-249  place 
the  sprite  fully  on  the  visible  por- 
tion of  the  screen.  (For  values  out- 
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side  these  ranges,  the  sprite  may  be 

the  filename. 

0999:48 

4C 

44 

46 

31 

0A 

35 

0A    FS 

partially  or  completely  hidden  be- 

READ Takes  all  input  for  sub 

09Alt40 
09A9:00 

0A 

lA 

07 
49 

00 

lA 

FA 
5A 

16 
lA 

F4 

36 

18    2A 

IB    OF 

hind  the  screen  border.)  Sprite  color 

sequent   A   (Accept)   instructions 

09Blt9B 

IC 

37 

IE 

45 

IE 

6B 

IE    F8 

is  set  according  to  the  most  recent 

from  a  sequential  file  on  the  disk. 

09B9:6E 

IF 

20 

09 

A9 

84 

FB 

20    06 

PEN  command. 

The  filename  is  specified  following 

09C1S06 
09C9:4C 

A9 
08 

C4 
AF 

FB 
20 

D0 
73 

05 
00 

68 
09 

68    60 

3A   6  5 

PRINT  Sends  a  printout  of  the 

the  READ  command. 

0901 : D0 

08 

A9 

19 

8D 

CB 

02 

4C    01 

graphics  screen  to  the  printer.  This 

CLOSE  Closes  any  open  disk 

09D9 I lA 

0A 

C9 

59 

D0 

00 

20 

73    B8 

command  will  work  only  if  your 

files  and  returns  input  and  output 

09E1:00 
09E9:4C 

AE 
32 

46 

0A 

90 
C9 

00 

4E 

05 
00 

68 
0D 

68    06 
20    70 

printer  is  a  Commodore   1525   or 

to  normal.  The  command  requires 

09Fli73 

00 

AE 

46 

9C 

F0 

05 

68    13 

compatible,  or  if  your  printer  inter- 

no following  name  or  number. 

09P9s68 

4C 

32 

0A 

09 

28 

D0 

0D   07 

face  provides  1525  emulation.  You 
should   also   make  sure   that   the 

0A01:20 

Fl 

AE 

20 

2B 

BC 

30 

05    2B 

Note:  The  author  has  availabie  a  36- 

0A09r68 

0A11:C9 

68 

3A 

4C 
F0 

32 

05 

0A 
68 

20 

68 

48 
40 

17    90 
08    80 

printer  is  turned  on  before  giving 

page  Super  Turtle  PILOT  Reference 

0A19:AF 

AD 

80 

9C 

8D 

06 

02 

00    A6 

this    command.    The    command 

Manual,  which  includes  many  pro- 
gramming examples.  For  information. 

0A21:04 

20 

73 

00 

60 

20 

42 

17   CC 

should  be  followed  by  a  1,  2,  or  3  to 

0A29i8O 
0A31:60 

C7 
20 

02 
3B 

A9 
A9 

00 
60 

8D 
20 

80 
BB 

9C   A4 
09    83 

indicate  the  size  of  the  image  to  be 

write: 

0A39i68 

68 

20 

79 

00 

4C 

E7 

A7    DF 

printed. 

The  following  program  dem- 

Alan Poole 

0A41 : 20 

73 

00 

C9 

41 

F0 

0B 

09    8C 

610  Crestwood  Cir. 

0A49:43 

0AS1:08 

F0 
AF 

36 

20 

09 

BB 

9B 
09 

F0 

20 

52 

9E 

40    30 
AD    08 

onstrates  a  variety  of  the  graphics. 

Bountiful,  UT  84010 

0A59:20 

F7 

B7 

AS 

A2 

18 

65 

14    21 

sprite,  and  sound  commands: 

0A61:85 

FF 

A5 

Al 

65 

15 

85 

FE    90 

For  instrudions  on  entering  these  programs. 

0A69:A5 

A0 

69 

00 

85 

FD 

A5 

A2    B7 

10              G: CLEAR; FULL; PEN    RED;BO 

please  refer  to  "COMPUTEI's  Guide  to  Typing 

0A71:C5 

FF 

D0 

FA 

A5 

Al 

C5 

FE    70 

RDER    BLACK 

In  Programs"  elsewhere  in  this  Issue. 

0A7  9:O0 

F4 

A5 

A0 

05 

FD 

D0 

EE    A8 

20              GsLINE    -79,100    TO    80,10 

0A81:60 

20 

BB 

09 

20 

EB 

B7 

AS    9B 

0 

Program  1 :  Super  Turtle  Pilot 

0A89:O5 

85 

FB 

E6 

FB 

8A 

05 

FB    69 

30              G:LINE    80,100    TO    80,-99 

0A91:B0 

00 

AS 

A6 

14 

E0 

19 

B0    87 

40              GrLINE    80,-99    TO    -79,-9 

0801 :0B    08    0A    00    9E    32    30    36    2E 

0A99;05 

18 

20 

F0 

FF 

60 

4C 

48    AB 

9 

0809:31    00    00    00   A9    05    8D    20    4E 

0AA1:B2 

A9 

00 

20 

BD 

FF 

A9 

04    00 

50              G:LINE    -79,-99    TO    -79,1 

0811:00    A9    01    8D    21    D0   AD    02    96 

0AA9:A2 

04 

A0 

FF 

20 

BA 

FF 

20    30 

m 

0819:DD   09    03    8D   02    DD   AD   00    76 

0AB1:C0 

PF 

A2 

04 

20 

09 

FF 

A9    80 

SS               GsPEN    WHITE 

0821 :DD    29    FC    09    01    8D   00    DD    B6 

0AB9:01 

8D 

77 

9C 

20 

73 

00 

40    85 

60              SsADSR    0,242 

0829:AD    18    D0    29    0F    09    20    8D    2D 

0AC1:9C 

A6 

AD 

77 

90 

D0 

03 

40    75 

70              DS:#0 

0831:18    D0    A9    88    8D    88    02    A9    7B 

0AC9:83 

A4 

A9 

00 

20 

02 

FF 

20    3B 

80              DS :  .  .  XXXX 

0839:E0    BD    04    03    A9    0A    8D    05    63 

0ADliCC 

FF 

A9 

04 

20 

C3 

FF 

A9    7B 

90              DS: .XXXXXX 

0841:03    A9    C3    8D    02    03    A9    0A    08 

0AD9:00 

8D 

77 

9C 

40 

83 

A4 

A5    69 

100            DS:XXXXXXXX 

0849:80    03    03   A9    48    8D   08    03    67 

0AEl!7A 

48 

AS 

7B 

48 

20 

79 

00    67 

110            DS:XXXXXXXX 

0851 :A9    09    8D    09    03    A9    5C   8D    BF 

0AE9:C9 

2A 

F0 

21 

09 

54 

F0 

24    43 

120            DS: .XXXXXX 

0859:06    03   A9    0B    8D    07    03   A9    4B 

0AF1:C9 

4A 

F0 

20 

C9 

55 

F0 

10    3F 

130          DS ■ . . yyy Y 

0861:99    8D    18    03    A9    18   8D    19    B6 

0AF9:C9 

4D 

F0 

18 

09 

52 

F0 

14    73 

^  -J  V                            UlS   m     '     *   A-^VA^ 

140           C:X=180 

150            C:Y=150 

170            C:CX=RND(l)*10-5 

180            C:CY=RND(l)*10-5 

0869:03    AD    14    03    8D    40    9C    AD    6D 

0B01:C9 

46 

F0 

10 

68 

85 

7B 

68    65 

0871:15    03    80    41    90    AD    18    D0    2F 

0B09:85 

7A 

4C 

7C 

AS 

A9 

2A 

85    7F 

0879:8D    45    9C   A9    40    8D    6B   9C    78 
0881 :A9    0F    8D    6C    9C    A9    10    80    DB 
0889:60    9C    A9    AA   8D    6E    9C   A9    60 

0B11:FB 
0B19:A9 
0B21:00 

40 
00 
F0 

19 
85 
El 

0B 
FD 
09 

A9 
20 
22 

3A 
79 
00 

85 
00 
02 

FB    49 
C9    45 
E6    8B 

190           J(CX<2    AND    CY<2):170 

0891 :FF    8D   6F    90   A9    00    80   70    95 

0B29:FD 

C5 

FB 

F0 

06 

20 

73 

00    05 

200            CsX=X+CX 

0899:90    A9    01    8D    4B    9C    A9    01    7C 

0B31s4C 

20 

0B 

A9 

22 

A0 

00 

91    96 

210            C:Y=Y+CY 

08Al:eD    4C    9C    A9    01    85    2B    A9    D7 

0B39:7A 

68 

85 

7B 

68 

85 

7A 

20    70 

220           G:SPRITE    0,X,Y 

08A9:00    80    00    21    8D    46    9C    8D    7B 

0B41:7C 

A5 

A2 

00 

E8 

BD 

FF 

01    92 

230            U(X>333    OR   X<29)i*B0UNC 

08B1:66    9C  6D    5F   9C    SD   67    9C    4A 

0B49:C9 

22 

D0 

F8 

A5 

FD 

F0 

05    82 

El 

08B9:8D   6A   9C    8D    76    9C    8D    77    50 

0BS15C6 

FD 

4C 

45 

0B 

A5 

FB 

90   AC 

240           U(Y>241    OR   Y<52):*B0UNC 

08Cli9C    SD    80    9C    8D    82    9C    A9    B6 

0859: FF 

01 

60 

84 

FB 

85 

FC 

A5    99 

E2 

08C9:21    85    2C   A9    FF    85    37    A9    lA 

0B61:FB 

C9 

04 

00 

56 

A0 

02 

Bl    60 

250           GET    K? 

08D1:83    85    38    A9    18    A0    09    20    10 

0B69:5F 

85 

FD 

C8 

Bl 

5F 

85 

FE    Fl 

260           J(KS="    ")!l40 

08D9:1E    AB    20    44    A6    A9    00    85    8D 

0B71iC9 

27 

90 

08 

D0 

38 

A5 

FD    79 

270            J:200 

08E1:22    8D    74    9C    A9    84    85    23    4C 

0B79:C9 

10 

B0 

32 

A9 

20 

20 

47    07 

230          *B0UKCE1 

08E9:8D    75    9C   A0    00    98    91    22    63 

0B81:AB 

A5 

FE 

C9 

03 

90 

08 

00    8E 

290           C:CX=-CX 

08F1:E6    22    D0    02    E6    23    A5    22    69 

0B89:25 

A5 

FD 

C9 

E8 

B0 

IF 

A9    E9 

300           S: 8000, 3 

08F9:C9    FF   00   Fl    AS    23   C9    85    FA 

0B9i:20 

20 

47 

AB 

A5 

FE 

D0 

16    44 

310           E: 

0901:00    EB    A2    00    8A    18    69    10    62 

0B99:A5 

FD 

C9 

64 

B0 

10 

A9 

20    BA 

320         *B0UNCE2 

0909 :9D    FB    BB    9D    F8    8F    ES    8A    D5 

0BA1 : 20 

47 

AB 

A5 

FD 

09 

0A 

B0    45 

330           C:CY=-CY 

0911 :C9    08    00   Fl    4C    EA   A7    93    34 

0BA9:05 

A9 

20 

20 

47 

AB 

A0 

04    E0 

340           J: 300 

0919:13    IF    12    53    55    50    45    52    BC 

0BB1:B1 

5F 

C9 

2A 

F0 

05 

A9 

20    63 

0921:20    54    55    52    54    4C    45    20   A6 

0BB9:20 

47 

AB 

AD 

67 

90 

F0 

0A   9B 

File  Commands 

0929:50    49    4C    4F    54    20    20    20    B7 

0BC1:A9 

IB 

8D 

6A 

9C 

A9 

2D 

40    FD 

0931:20    20    20    20    20    20    42    59   C0 

0BC9:1A 

A7 

AD 

6A 

9C 

F0 

03 

40    2E 

The  F:  instruction  provides  the  fol- 

0939:20  41    4C    41    4E    20    50   4F    2C 

0BD1:C6 

0B 

A0 

04 

Bl 

5F 

09 

2A    2B 

lowing  commands  for  manipulat- 
ing disk  files: 

0941 :4F    4C    45    92    0D   0D   00    20    9C 

0BD9:P0 

26 

C9 

54 

F0 

17 

09 

4A    32 

0949:73    00    85    FB    E9    80    90    11    09 

0BE1:F0 

13 

09 

55 

F0 

0F 

09 

40   68 

0951 :A5    FB   C9    3A   D0    05    A9   00   05 

0BE9SF0 

0B 

C9 

52 

F0 

07 

A4 

FB    82 

WRITE  Sends  all  output  from 
subsequent  T  (Type)  instructions  to 

0959:80   66    90   20    79    00    4C   E7   AD 

0BFI:A5 

FC 

4C 

lA 

A7 

08 

04 

FB    2B 

0961 :A7    20    68    09    40    EA   A7    A5    EF 
0969 :FB   09    2A   DS    03    4C    32    0A   F5 

0BF9:B0 
0C01:A4 

F4 
FB 

Bl 

A5 

5F 
FC 

C9 
40 

3A 
F3 

00 
A6 

P5   A0 
20    8E 

a  sequential  file  on  the  disk.  The 

0971 :A2    00    BD    8E    09    C5    FB    F0    BD 

0C09:BB 

09 

D0 

03 

40 

08 

AF 

B0    IE 

WRITE  command  should  be  fol- 

0979:08  E8   E0    0F   D0   F4    40   08    01 

0C11 :20 

20 

79 

00 

20 

9E 

B7 

8E    E9 

lowed  by  the  name  of  the  file.  No 

0981 :AF    8A    0A   AA    BD    9E    09    48    BC 
0989iBD    9D    09    48    60    52    43    50    AA 

0019:62 
0C21;03 

9C 
40 

20 
08 

79 
AF 

00 
20 

09 
73 

5B 
00 

F0    F3 
A5    3E 

quotation  marks  are  used  around 

0991:47    54   4A    55    45    41    40    53    18 

0C29:7A 

8D 

63 

90 

A5 

7B 

80 

64    B2 
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0C3i:9C  20 

9B 

0C  8A 

D0 

03 

4C 

BO 

0EC9:03 

A5 

64 

69 

00 

85 

04 

20 

32 

1161:18 

69 

01 

80 

57 

90 

AD 

58  C3 

0C39:08  AF 

A9 

0C  48 

A9 

40 

48 

03 

0ED1:FO 

AE 

20 

9E 

AD 

20 

BF 

Bl 

A5 

1169:9C 

69 

00 

80 

58 

9C 

AS 

03  51 

0C41:CA  8A 

0A 

AA  BD 

76 

0C 

48 

75 

0EO9:A5 

65 

49 

FF 

18 

69 

65 

85 

02 

1171:85 

03 

A5 

04 

85 

04 

A5 

35  04 

0C49:BD  75 

0C 

48  60 

20 

79 

00 

lA 

0EE1S05 

A5 

64 

49 

FF 

69 

00 

85 

36 

1179:85 

05 

AS 

36 

85 

06 

20 

EB  28 

0C51:C9  3B 

D0 

06  20 

73 

00 

4C 

B2 

0EE9S06 

60 

A5 

04 

F0 

01 

60 

A5 

08 

H81:0E 

AO 

76 

9C 

F0 

03 

20 

A5  2S 

0C59:32  0C 

C9 

50  00 

15 

20 

73 

2B 

0EF1S03 

09 

A0 

B0 

F9 

A5 

06 

D0 

64 

1189:0F 

AD 

56 

9C 

CO 

58 

90 

90  CC 

0C61:00  CE 

62 

9C  F0 

00 

AD 

63 

BD 

0EF9!F5 

A5 

05 

C9 

C8 

B0 

EF 

20 

00 

1191:10 

F0 

03 

4C 

IC 

12 

AO 

55  F6 

0C69:9C  85 

7A 

AD  64 

9C 

85 

7B 

77 

0F0l!3D 

10 

A5 

03 

29 

03 

85 

FB 

03 

1199i9C 

CD 

57 

9C 

90 

03 

4C 

IC  77 

0C71:4C  32 

0C 

60  26 

00 

52 

0E 

DB 

0F09:A9 

FC 

85 

FC 

A9 

03 

38 

E5 

6B 

11A1:12 

AD 

55 

90 

80 

50 

90 

AD  75 

0C79:92  0E 

98 

0E  9E 

0E 

9E 

10 

CC 

0Fll!FB 

85 

FB 

AD 

4B 

90 

A6 

FB 

FE 

11A9:56 

9C 

SO 

5E 

90 

AD 

50 

9C  A8 

0Cai;95  12 

8B 

13  95 

13 

9C 

13 

00 

0F19tF0 

0A 

0A 

0A 

38 

26 

FC 

26 

8E 

llBlilS 

6D 

55 

9C 

8D 

5D 

9C 

AD  78 

0C89:A3  13 

34 

14  Fl 

14 

21 

15 

37 

0F21jFC 

CA 

00 

P6 

85 

FB 

A5 

01 

62 

11B9:5E 

9C 

60 

56 

90 

8D 

5E 

9C  B9 

0C91:55  15 

AS 

15  B6 

15 

24 

16 

68 

0F29i29 

FE 

85 

01 

A5 

FC 

A0 

00 

BE 

11C1:CD 

58 

9C 

90 

2C 

00 

08 

AD  DF 

0C99:32  16 

A9 

01  85 

FB 

A2 

00 

F6 

0F31:31 

22 

05 

FB 

91 

22 

A5 

01 

32 

11C9:50 

90 

CD 

57 

9C 

90 

22 

A5  02 

0CA1:A0  00 

Bl 

7A  DO 

CB 

0C 

00 

EE 

0F39:09 

01 

85 

01 

AO 

4B 

9C 

00 

81 

1101:03 

18 

60 

59 

9C 

85 

03 

AS  65 

0CA9rl0  C8 

E6 

BD  CB 

0C 

D0 

F2 

18 

0F41:01 

60 

A5 

05 

29 

F8 

85 

FB 

31 

1109:04 

60 

5A 

90 

85 

04 

AD 

5D  63 

0CB1:20  73 

00 

88  00 

FA 

A6 

FE 

FA 

0F49ia5 

FD 

A9 

00 

85 

FC 

85 

FE 

09 

11E1:9C 

38 

ED 

57 

9C 

80 

SO 

9C  06 

0CB9:60  E8 

BD 

CB  0C 

00 

FA 

E6 

31 

0F51:06 

FD 

26 

FE 

06 

FD 

26 

FE 

lA 

11E9!AD 

5E 

9C 

ED 

58 

9C 

3D 

5E  9B 

0CC1:FB  E8 

BD 

CB  0C 

D0 

D9 

A2 

80 

0F59iA5 

FD 

18 

65 

FB 

85 

FB 

A5 

B6 

11F1:9C 

AS 

06 

C5 

IC 

D0 

07 

A5  C0 

0CC9:00  60 

43 

4C  45 

41 

52 

00 

FA 

0F61:FE 

65 

FC 

85 

FC 

A5 

03 

4A 

IF 

11F9:05 

05 

IB 

00 

01 

60 

A5 

05  5A 

0CD1:51  55 

49 

54  00 

46 

55 

4C 

66 

0F69i4A 

18 

65 

FB 

85 

FB 

A9 

00 

8E 

1201:13 

6D 

5B 

90 

85 

05 

A5 

06  53 

0CD9:4C  00 

4D 

49  58 

00 

50 

4F 

09 

0F71:65 

FC 

85 

FC 

A9 

00 

18 

65 

E4 

1209:6D 

5C 

90 

85 

06 

20 

EB 

0E  70 

0CEliB5  00 

4C 

49  4E 

45 

00 

50 

CA 

0F79:FB 

85 

FB 

A9 

8C 

65 

FC 

85 

8A 

1211:AD 

76 

9C 

F0 

03 

20 

AS 

0F  3F 

0CE9!45  4E 

00 

42  4B 

47 

44 

00 

5C 

0F81:FC 

AD 

4B 

9C 

09 

01 

F0 

0A 

FA 

1219:40 

AE 

11 

AD 

57 

9C 

80 

SO  Bl 

0CF1:57  49 

4E 

44  4F 

57 

00 

42 

30 

0F89:Bi 

FB 

29 

F0 

00 

4C 

9C 

91 

18 

1221;9C 

AO 

58 

9C 

80 

5E 

9C 

AD  A0 

0CF9!B0  44 

45 

52  00 

44 

52 

41 

40 

0F91:FB 

60 

AD 

4C 

9C 

0A 

0A 

0A 

6B 

1229:50 

9C 

18 

60 

57 

9C 

8D 

50  A2 

0D01:57  A4 

00 

44  52 

41 

57 

00 

7A 

0F99:0A 

85 

FD 

Bl 

FB 

29 

0F 

05 

A0 

1231:9C 

AO 

5E 

9C 

60 

58 

9C 

8D  38 

0D09:54  55 

52 

4E  A4 

00 

54 

55 

F4 

0FAliFD 

91 

FB 

60 

A5 

03 

48 

A5 

IS 

1239:5E 

9C 

CD 

56 

9C 

90 

2C 

D0  23 

0D11:52  4E 

00 

39  00 

CB 

00 

53 

03 

0FA9:04 

48 

A5 

05 

48 

A5 

06 

43 

0E 

1241:08 

AD 

50 

9C 

CD 

55 

90 

90  07 

0D19:50  52 

49 

54  45 

00 

46 

49 

5E 

0FBl!E6 

03 

D0 

02 

E6 

04 

A5 

04 

04 

1249:22 

A5 

05 

18 

6D 

5B 

9C 

85  Al 

0D21s4C  4C 

00 

99  00 

00 

AD 

15 

7E 

0FB9:D0 

06 

A5 

03 

C9 

A0 

90 

06 

9E 

1251:05 

AS 

06 

60 

5C 

90 

85 

06  5F 

0D29:03  C9 

0D 

F0  06 

AD 

18 

D0 

CF 

0FCltA9 

00 

85 

03 

35 

04 

A5 

06 

23 

1259:AD 

50 

90 

38 

ED 

55 

9C 

80  4E 

0D31:8D  45 

9C 

20  53 

0E 

A9 

01 

20 

0FC9:D0 

11 

A5 

05 

C9 

C8 

B0 

0B 

77 

1261:50 

9C 

AD 

5E 

9C 

ED 

56 

90  DC 

0D39:8D  48 

9C 

A9  01 

80 

4C 

9C 

8E 

0FD1:20 

E9 

0F 

D0 

06 

20 

EB 

0E 

FF 

1269i8D 

5E 

9C 

AS 

04 

05 

lA 

00  16 

0D41;A9  00 

8D 

21  D0 

80 

5F 

9C 

0C 

0FD9:4C 

Bl 

0F 

68 

85 

06 

68 

85 

80 

1271:07 

A5 

03 

C5 

19 

00 

01 

60  AD 

0D49:A9  05 

8D 

20  D0 

A9 

13 

20 

A0 

0FE1:05 

68 

85 

04 

68 

85 

03 

60 

40 

1279:A5 

03 

18 

6D 

59 

9C 

85 

03  56 

0D51:D2  FF 

A9 

93  20 

02 

FF 

A9 

39 

0FE9:A5 

04 

00 

40 

A5 

03 

09 

A0 

38 

1281:A5 

04 

60 

5A 

9C 

85 

04 

20  EF 

0D59S00  85 

FB 

A9  A0 

85 

FC 

A0 

A4 

0FFl:a0 

47 

A5 

06 

00 

43 

A5 

05 

33 

1289:EB 

0E 

AD 

76 

9C 

F0 

03 

20  13 

0D61:00  98 

91 

FB  CS 

D0 

FB 

E6 

FB 

0FF9:C9 

C8 

B0 

3D 

20 

3D 

10 

A5 

D4 

1291 :A5 

0F 

4C 

28 

12 

20 

05 

12  27 

0D69sFC  A5 

FC 

C9  C0 

00 

F2 

A9 

80 

1001:03 

29 

03 

85 

FB 

A9 

03 

38 

6A 

1299:09 

10 

90 

21 

C9 

10 

00 

06  01 

0D71:00  85 

FB 

A9  8C 

85 

FC 

A9 

25 

1009:E5 

FB 

85 

FB 

A9 

03 

A6 

FB 

2E 

12A1:A9 

01 

80 

5F 

9C 

60 

C9 

11  8D 

0D79:00  85 

FD 

A9  D8 

85 

FE 

A9 

D3 

1011:F0 

05 

0A 

0A 

CA 

00 

FB 

AS 

FE 

12A9SD0 

06 

A9 

00 

8D 

5F 

9C 

60  70 

0DS1:00  91 

FB 
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Looking  for  Thermal 
FSaper  or  Mailing 

Labels  for  yotu^ 

Okimates? 
Call  Precision! 

Precision  Images  now  has  avail- 
able for  your  Okimate  printers, 
GENUINE  Okidata  thermal  trans- 
fer roll  paper  and  mailing  labels. 
We  also  carry  a  large  supply  of 
spare  parts  and  supplies  for  all 
Okidata  printers.  Precision  Im- 
ages is  "your  direct  connection 
lo  genuine  Okidata  parts  and 
supplies." 

Hew  Mlcroline  93  Printer— $375 

for  Visa/MasterCard  orders  call: 
1-800-524-8338 


pcectsiQn  images 


Precision  Images.  Inc. 

P.O.  Box  563,  Dept.  C 

Chester,  New  York  10918 


ISOBAR... cleans  up  your  line 
power!  The  most  complete 
computer  protection  available 

More  features  to  prevent  errors,  false  printout, 
disc  skips!  Only  ISOBAR  has  3-way  spike  pro- 
tection, noise  suppression  for  RFI  PLUS  isolated 
filter  banks!  Indivtijual  filler  banks  isolate  each 
load  from  otfier  loads  minimizing  data  errors  of 
any  kind.  MO\J  surge  suppressors  arrest  botfi 
common  mode  and  differentia!  mode  surges 
L/C  filler  network  rejects  radio  frequency  noise 
at  any  amplitude.    Toroidal  coils  ! 


Model  !BAR  2-6 

{2  outlets,  6  ft,  cord) 

Only  $59.95 


IWodel  IBAR  4-6 

(4  outlets,  6  ft.  cord) 

Only  S79.95 


Model  IBAR  8-15  (8  outlets,  15  ft,  cord) 
Only  S109.50 


Order  toll  free  1-800-662-5021 

IN  ILLINOIS,  CALL  1-31_2;;M8-2131_qR_M/UL_C0UPON 

"NDUS-'TOOLrTSO  W~Lake  Street 
Dept.  C!,     Chicago,  IL  606O6 

Enclosed  is  $  _ .'  ^ ^.  or  charge  on 

|j  MasterCard  or  Li  Visa    Expires 

Card  no. . 

Send  model  # 

Name  . , — . — ^■ 

Company 

Address 
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6D  A0 
A2  08 
00  FF 
CF  FF 
20  CF 
A9  01 
FF  AA 
20  CF 
4C  5A 
4C  3F 
20  79 
73  00 
00  C9 
C9  44 
IF  C9 

09  40 
4F  03 
00  0A 
03  4C 
20  73 

20  73  00 
00  C9 
09  45 
IF  4C 
20  73 
C8  20 
99  00 
02  A9 
FB  09 
99  00 
02  20 
A0  02 
A2  03 
82  9C 
99  00 
02  20 
ffl3  02 
A2  05 
00  A9 
20  C3 
80  82 


EA  80 

90  20 

20  73 

49  00 

AF  20 

20  9B 

48  B2 

80  74 

0E  74 

18  60 

84  60 
AD  74 

85  23 
20  FD 
F0  08 
D0  EE 
85  FD 
74  90 
AD  75 
20  79 
60  20 
E0  18 
58  00 
00  09 
20  73 
IF  20 
A0  00 
A2  01 
20  CF 
FF  00 
20  C3 
20  CF 
FF  F0 
IF  A9 
IF  24 
00  C9 
09  45 
41  00 
00  05 
43  00 
D0  18 


28  03 

73  00 
00  C9 
03  40 
BB  09 
B7  E0 
3A  0A 
90  A9 
9C  2E 

74  9C 

75  90 
9C  85 
AJ3  00 
IE  26 
E0  08 
A5  FD 
C8  E0 
18  69 
9C  69 
00  F0 
79  00 
F0  03 
F3  38 
52  F0 
00  A9 
BD  FF 
20  BA 
20  C6 
FF  20 
09  20 
FF  60 
FF  20 
06  20 
0D  20 
30  20 
52  00 
D0  13 
0C  20 
A9  01 
IF  20 
20  73 


11  20  73  00 


20  73 
50  20 
00  C9 
09  49 
54  D0 
00  05 
08  AF 

00  99 
42  17 
02  A9 
2C  CS 

01  F0 

02  C8 
BD  FF 
20  BA 
20  09 
4C  4F 

02  08 
BD  FF 
20  BA 
20  C6 

03  20 
FF  20 
90  60 


00  C9 
C9  57 

52  00 
00  13 
0C  20 
A9  02 
85  FB 
00  02 
00  F5 

53  C8 
99  00 
28  A9 
98  A2 
A9  03 
FF  20 
FF  A9 
20  A9 
98  A2 
A9  05 
FF  20 
FF  60 
03  FF 
CC  FF 
00  00 


A9  2  2 
60  67 
53  48 
12  B3 
09  20 

08  11 
0A  BA 
00  08 
75  56 
8D  IC 
8D  00 
22  F9 
84  36 
FD  5D 
F0  79 
91  F0 
00  BE 
03  17 
00  69 
03  98 
D0  E0 
20  0B 
60  E6 
03  43 
02  68 
A9  B3 
FF  91 
FF  EF 
CF  00 
CC  39 
20  13 
CD  5B 
02  2B 
02  84 
BB  72 
lA  BE 
20  F4 
73  31 
4C  EC 
73  2B 
00  09 

09  5C 
45  7D 
00  4F 
lA  52 
20  50 
73  AA 
4C  57 
A0  85 
F0  58 
A9  17 
99  92 
02  5F 
57  2F 

00  22 
A2  51 
C0  9E 

01  0F 
52  09 
00  4A 
A2  70 
C0  C6 
20  EB 
A9  6A 
A9  7A 
00  22 


Program  2:  Turtle  Graptiics 
Demo  Program 

10      G: CLEAR;  FULL;  BORDER  1 

4 

20  *LOOP 
30      C:L=L-t-3 
40      G:DRAW  L;  TURN  122 
50      J(L<325)!*LOOP 
60      G:GOTO  0,0;  TURNTO  0 
70      C:R=RND(1)*16 
80      G:PEN  R;  BORDER  15-R 
90      C : L=0 
100     J:*LOOP  © 


Rid 


A  File  Deleter 


//  you  frequently  find  yourself  delet- 
ing files  to  obtain  more  space  on  your 
disks,  you'll  appreciate  this  machine 
language  program  that  takes  the 
drudgery  out  of  the  process.  "Rid"  is 
written  for  the  IBM  PC/PCjr  and 
compatibles  with  BASIC  and  version 
2.0  or  higher  of  PC-DOS  or  MS-DOS. 
Cartridge  BASIC  is  required  for  the 
PCjr. 


There  is  no  way  around  the  prob- 
lem of  disks  becoming  cluttered 
with  unwanted  files,  How  does  this 
happen?  Here  are  a  few  contribut- 
ing causes: 

•  Most  text  editors  and  word  proces- 
sors automatically  make  backup 
copies  so  you  can  recover  acciden- 
tal (or  intentional)  deletions. 

•  Programmers  often  save  different 
versions  of  a  program  as  they  work. 

•  Some  compilers  and  assemblers 
create  intermediate  files. 

•  Files  with  time-sensitive  infor- 
mation eventually  become  out-of- 
date. 

With  a  collection  of  unneces- 
sary files  on  your  disk,  you  may 
have  trouble  locating  the  ones  you 
really  need.  "Rid"  is  a  program  that 
allows  you  to  quickly  and  safely 
delete  all  unwanted  files  from  your 
floppy  or  hard  disk, 

Normally,  deleting  the  un- 
wanted files  on  a  floppy  disk  (or  in 
the  subdirectory  of  a  hard  disk)  is  a 
dull,  time-consuming  chore  in 
which   typing  mistakes   can   spell 
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disaster.  It's  all  too  easy  to  type 
DEL  BATFILE.BAT  instead  of  DEL 
BATFILE.BAK  or  DEL  VERS10N4. 
BAS  instead  of  DEL  VERSIONS. 
BAS.  If  you  need  to  delete  many 
files,  you  may  use  the  wildcards  * 
and  ?  to  speed  up  deleting  files  with 
similar  names.  Unfortunately, 
using  wildcards  can  easily  result  in 
the  unintentional  deletion  of  files. 

Rid  takes  a  completely  differ- 
ent approach.  To  make  the  chore  as 
pleasant  as  possible,  it  displays  the 
names  of  all  your  files  on  the 
screen,  allowing  you  to  easily  select 
and  delete  them. 

Type  in  the  BASIC  program 
"Rid  Creator."  Since  it  creates  a 
machine  language  file  that  will  per- 
form disk  access,  be  sure  to  use  the 
IBM  Proofreader  program,  found 
elsewhere  in  this  issue,  to  enter  it. 
Be  sure  to  save  a  copy  to  disk,  but 
don't  use  the  name  R1D.COM — 
that  name  is  reserved  for  the  ma- 
chine language  program  that  will 
be  created  later. 

To  start  the  program,  type 
RUN.  You're  asked  to  choose  be- 
tween a  hard  disk  and  floppy  disk 
version  of  the  program.  If  you  enter 
F  for  floppy,  the  program  creates  a 
version  of  RID.COM  that  allows 
you  to  change  disks  in  the  active 
drive  before  the  directory  is  read 
and  displayed.  If  you  enter  H,  the 
program  creates  a  version  of  RID 
.COM  that  immediately  displays 
the  current  directory.  If  you're  go- 
ing to  be  using  Rid  with  both  floppy 
and  hard  disks,  choose  F.  After  you 
enter  your  preference,  the  program 


will  create  a  program  file  named 
RID, COM.  Hard  disk  users  should 
put  a  copy  of  RID.COM  in  the  same 
directory  that  contains  the  other 
DOS  commands  that  are  loaded 
from  disk  (the  nonresident  external 
commands  such  as  FORMAT, 
DISKCOPY,  and  so  on),  or  in  any 
other  directory  that  is  included  in 
the  DOS  search  path.  Hoppy  disk 
users  should  put  a  copy  of  RID 
.COM  on  their  working  copy  of  the 
system  disk. 

A  New  DOS  Command 

RID.COM  works  just  like  any  other 
DOS  command.  First,  be  sure  to  set 
the  active  drive  to  the  drive  that  will 
hold  the  disk  with  the  files  you  wish 
to  delete..  Then,  enter  RID  at  the 
DOS  prompt,  preceded  by  the  drive 
designation  of  the  disk  containing 
RID.COM,  if  RID.COM  is  in  a  drive 
other  than  the  active  drive.  If  you 
created  the  version  of  RID.COM  for 
floppy  disks,  you'll  be  told  to  insert 
a  disk  in  the  active  drive.  If  the  disk 
you  want  to  use  is  not  in  the  drive, 
place  it  there  and  press  a  key  to 
continue.  The  active  drive  and  cur- 
rent directory  are  displayed  at  the 
top  of  the  screen,  followed  by  a  list 
of  the  first  100  files.  RID.COM  will 
let  you  delete  only  those  files  found 
among  the  first  100  in  a  directory, 
but  this  should  seldom,  if  ever,  be  a 
limiting  factor. 

After  the  files  are  displayed,  a 
line  of  instructions  explaining  the 
keyboard  controls  appears  at  the 
bottom  of  the  screen.  Notice  that 
one  of  the  files  is  highlighted.  Use 
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the  arrow  keys  to  move  the  liigh- 

CB   200    DATA    24,  44,  45,  4C,  43,  54,  49 

,07, CD,  10 

light  from  one  filename  to  another. 

,4E,47,20 

EC   620 

DATA   8A,2E,45,07,8A,0E,46 

FF   210    DATA    46,  49,  4C,  45,  53,  20,  46 

,07, CD, 10 

When  you  press  the  D  key  (upper- 

,52,4F,4D 

PL   630 

DATA    B8,00,06,33,C9,BA,4F 

or  lowercase),  the  chosen  file  will 

LL   220    DATA    20,  20,  20,3F,  3A,5C,  24 

,18,8A,3E 

be   deleted   immediatel}/   from   the 
disk,  and  the  name  of  the  file  will 

,44,69,73 
SB  230   DATA    68,20,61,63,63,65,73 
,73,20,63 

IL   640 
DP   650 

DATA    4F,07,CD, 10,C3,BD, 16 

,29,09,B4 

DATA    09,CD,2l,C6,06,4D,07 

disappear  from  the  screen.  You  can 

LF   240   DATA    72,  72,  6F,  72,  20,  2D,  20 

,02,C6,06 

now   move   the   highlight   to   the 
name  of  the  next  file  to  be  deleted. 

,70,72,65 

EH   660 

DATA    4C,07,02,C6,06,4B,07 

LC  250   DATA    73,  73,  20,61,  6E,  79,  20 
,68,65,79 

K   670 

,00,C6,06 

DATA    4A, 07, 00, 06,06,49, 07 

Be  very  careful  to  delete  the  correct 

KP  260    DATA    20,  74,  6F,  20,  63,  6F,  6E 

,00,EB,3A 

file  or  files.  If  you  make  a  mistake 
and  delete  a  file  that  you  wanted  to 

,74,69,6E 

JD    6B0 

DATA    01,B4,07,CD,21,3C,00 

Bt;  270    DATA    75,  65,  2E,  2E,  2E,  0A,  0A 
,0D,24,0A 

Lfl   690 

,74,0D,3C 

DATA    IB,74,A9,0C,20,3C,64 

keep,  you  may  be  able  to  recover 

n.  280    DATA    0A,  00,20,20,  20,  20,  20 

,73,EE,E9 

your  lost  files  with  a  disk  utility 

,20,20,20 

BJ   700 

DATA    B6,00,B4,07,CD,21,3C 

fiE  290    DATA    20,55,73,65,20,61,72 

,48,73,21 

program. 

,72,6F,77 

NS  710 

DATA    80, 3E, 40,07,03, 72, DC 

To  exit  R1D.COM  and  return  to 

EK  300    DATA    20,68,63,79,73,20,74 

,aA,0E,4O 

DOS,  press  the  Escape  key.  Once 

,6F,20,6D 
rX   310    DATA    6F,  76,  65, 2C,  20,58,44 

JH  720 

DATA    07,FE,C9,Ba,0E,4C,07 
,aA,0E,49 

you've   become   accustomed   to 

,50,20,74 

IN  730 

DATA    07,a0,E9,05,8a,0E,48 

using   RID.COM,   you'll    wonder 

NS   320    DATA    6F,  20,  64,  65,  6C,  65,  74 

,07,ES,FE 

how  you  got  along  without  it. 

,65,20,66 
Pfl   330    DATA   69,6C,63,73,2C,20,5B 

8N  740 

DATA    00,EB,C2,3C,4B,75,20 
,e0,3E,4B 

,45,73,63 

JF    750 

DATA    07,00,74,B7,BA,0E,4B 

Rid  Creator 

CF   340    DATA   5D,  20,  74,  6F,  20,  71 ,  75 

,07,FE,C9 

,69,74,2E 

Kt    760 

DATA    as, 0E, 4A,07,8A,0E,49 

For  instructions  on  entering  tnese  programs. 

V   350    DATA    24,80,16,94,08,84,09 

, 07, FE,C9 

please  refer  to  "COWPUTEi's  Guide  to  Typing 
In  Programs"  eisewtiere  in  this  issue. 

,CD,21,B4 
JD   360    DATA    07,  CD,  21 ,  B4,  0F,  CD,  10 

JB   770 

DATA    Ba,0E,4a,07,E8,DA,00 
,EB,9E,3C 

NS   1    •    Program    to    create    RID.COM 

,A2,43,07 

06   780 

DATA    50, 75, 2A,8A, 16,47,07 

N5  2    *     Copyright     IS'B?    Compute'     P 

EC   370    DATA    88,  3E,  44,  07,  B4,  03,  BA 

,2A, 16,49 

ublications,     Inc. 

,3E, 44,07 

EF   790 

DATA    07, 80, FA, 05, 77, 02, EB 

IK  3    '    All    Rights    Reserv=d. 

OK   3a0    DATA    CD,  10,88,  2E,  45,  07,  88 

,aB,aA,0E 

£1    4    CLS:PRIIMT     "COPYRI GHT  '  1987     " 

,0E, 46,07 

Eft   800 

DATA    4D,07,FE,Cl,Sa,0E,4C 

:PRINT     "COMPUTE'     PUBLICfiTID 

IK    390    DATA    B4  ,  0B,  CD,  10,  80,  26  ,  4F 

,07,BA,0E 

NS,     INC." 

,07,88,00 

CI    810 

DATA    49,07,a0,C1.05,QB,0E 

K  5    PRINT    "ALL    RIGHTS   RESERVED,' 

PK   400   DATA    06,87,07,  33,  C9,BA,4F 

,4B,07,E8 

■' 

, IB, CD, 10 

SK   820 

DATA    AD,00,E9,70,FF,3C,4D 

H   h    FOR    ZZ=t     TO     1500: NEXT: CL5 

NJ   410    DATA    B8,00,02,33,DB,33,D2 

,74,03,E9 

W    10    INPUT-Create    RID.COM    -for    H 

, CD, 10, 88 

KL   B30 

DATA    69,FF,80,3E,4B,07,04 

ard    or    Floppy    disk     CH    or    F 

JB  420    DATA    00,  00,  A0, 43, 07, 3C,  07 

,75,03,E9 

>  ";D* 

,74,02,B0 

Eft  840 

DATA    5F,FF,aA, 16, 47,07, 2A 

IK   20    IF    D«="H"    OR    D*="h"    THEN    D 

FI   430    DATA    02,  CD,  10,  C6,  06,  47,  07 

, 16,49,07 

=iH7A:G0TD   50 

,00,B4, 19 

15  850 

DATA    80,FA,01,77,03,E9,4F 

Hi   30    IF    □*="F"    DR    D*="-f"    THEN    D 

EJ    440    DATA    CD,  2  1  ,  04,  41 ,  BD,  36,  DB 

,FF,BA,0E 

=SiH6E:G0T0    50 

,0B,a3,C6 

K  860 

DATA    4B,07.FE,C1,88,0E,4A 

FF   40    GOTO    10 

JO   450    DATA    16,88,04,84,47,80,36 

,07,BA,0E 

DN   50    OPEN    "RID.COM"    FOR   OUTPUT 

,50,0B,B2 

£S  870 

DATA    49,07,FE,C1,SB,0E,48 

flS    1 

ND   460    DATA    00,  CD,  21 ,  SD,  36,  50,  08 

,07,E8,72 

PJ   60   PRINT#1,CHR$(!<HE9)  ;CHR«(D) 

,eA,04,46 

FE  880 

DATA    00,E9,35,FF,EB,1F,00 

;CHR*CS<H8)  ; 

Bft   470    DATA    3C, 00, 75, F9, 4E, B0, 0A 

,8A,04,3C 

HL   70    FOR    N=l    TO    1 927:  PRlNTttl ,  CH 

,Ba,04,46 

H'  890 

DATA    20,75,03,E9,29,FF,8B 

R»f0) ;:NEXT 

EC   480    DATA    88,04,80,00,46,88,04 

,D6,B4,41 

FP   80    T-0:FDR    J-1    TO    910:  READ    A* 

,46,80,24 

6E   900 

DATA    CD,21,B0,20,B9,0C,00 

:N=VALC'!<H"+fi$) 

EJ   490    DATA    88,  04,  B4,  09,  80,  16,  DB 

, SB, 04, 46 

FE   90    T=T+N:PRINT»1,CHRS<N)  ;:NEX 

,08, CD, 21 

FC   910 

DATA    E2,FB,E8,50,00,E9, 13 

T: CLOSE    1 

m  500    DATA    SD, 16, 50, 08, CD, 21, 80 

,FF,A0,49 

NI    100    IF    T=84241  '     THEN    PRINT"RI 

, 16,50,07 

KC  920 

DATA    07,B4,00,D1,E0,D1,E0 

D.COM   SUCCESSFULLY    CREATE 

tfl   510    DATA    B4, 1A,CD,2I,BD,3E,03 

,D1,E0,D1 

D! ":END 

,01,B4,4E 

HI   930 

DATA    E0,BE,03,01,03,F0,C3 

KH    110    PRINT    CNR*  «7)  ;■■»«««*    ERRO 

LC  320    DATA    8D,  16,  90,  08,  B9,  00,  00 

,8A, 16, 4B 

R    IN    DATA    STATEMENTS    «*»» 

, CD, 21, 72 

CO  940 

DATA    07,D0,E2,D0,E2,O0,E2 

«":END 

EA   530    DATA    3F,  FE,  06,  47,  07,  B9,  1  1 

,D0,E2,8A 

LK   120    DATA    00,00,00,00,00,00,2ft 

,00,BD,  IE 

LK  950 

DATA    36,40,07, 87,00,84,02 

,2E,2A,00 

DO   540    DATA    50,  07,  83,  C3,  IE,  49,  OA 

,CD, 10, C3 

JB    130    DATA    0A,0A,0D,49,6E,73,65 

, 17, 80, FA 

SO  960 

DATA    Eg,D3,FF,ES,E3,FF,B7 

,72,74,20 

BC   550    DATA    00,  74,  0A,  88,  15,  47,  B4 

,00,8A, IE 

as    140    DATA   64,69,73,6B,20,69,diE 

,02, CD, 21 

LO   970 

DATA    4E,07.B9,01,00,B4,09 

. 20. 61. 63 

C>a  560    DATA    43,  EB,EE,B4,  02,82,20 

,aA,04,46 

6!    150    DATA    74,69,76,65,20,64,72 

, CD, 21, 47 

DH   980 

DATA    3C,00,74,0A,CD,10,FE 

, 69, 76,65 

CC   570    DATA    E2,  FB,  80,  3E,  47,  07,  64 

,C2,B4,02 

PS   160    DATA    2C,  20,74,6a,65,6E,20 

,75,03,EB 

K!   990 

DATA    CD, 10,EB,ED,C3,C6,06 

,0A,0D, 20 

EP   5B0    DATA    40,90,80,16,9(9,08,84 

,4E,07,07 

Kfl    170    DATA    20,20,70,72,65,73,73 

,4F,CD,21 

Nil    1000    DATA    EB,D5,FF,C6,06,4E,0  | 

, 20,61,6E 

BH   590    DATA    72,  35,  EB.  CI ,  80,  16,  F5 

7,70,A0,4C 

DL    180    DATA    79,20,68,65,79,20,74 

,08,64,09 

DK    1010    DATA    07,ft2,4O,07,  A0,4A,0  | 

,6F, 20,63 

DE   600    DATA    CD,  21 ,  84  ,  07,  CO,  21 ,  84 

7,A2,4B,07 

NK    190   DATA    6F,  6E,  74,  69,  6E,  75,  65 

,00,A0,43 

BH    1020    DATA   A0,  48,  07,  A2,  49,  07,  E  | 

,2E,2E,2E 

HP   610    DATA   07,CD,  10,B4,05,A0,44 

B,BB,FF,C3                                    @ 
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Atari  ST  Menu  Driver 


Are  your  BASIC  programs  cluttering 
up  your  disks,  hiding  in  folders,  and 
straying  beyond  your  file-window's 
view?  If  clicking  scroll  bars  in  an 
attempt  to  locate  that  elusive  BASIC 
program  is  getting  tiresome,  try 
"Atari  ST  Menu  Driver."  This  short 
program  provides  easy  menu-driven 
access  to  all  your  ST  BASIC  programs. 


"Atari  ST  Menu  Driver"  makes 
loading  and  running  ST  BASIC  pro- 
grams a  lot  easier.  Extracted  from 
the  disk  accompanying  the  COM- 
PUTE! book  ST  Applications,  writ- 
ten by  Brian  and  John  Flynn,  the 
menu  driver  handles  up  to  ten  pro- 
grams and  works  with  either  a 
monochrome  monitor  set  to  high 
resolution  or  a  color  monitor  set  to 
medium  resolution. 

Atari  ST  Menu  Driver  was 
written  in  modular  style  for  ease  of 
comprehension.  Subroutines  are 
identified  by  labels,  such  as  SET- 
SCREEN:,  DRAW.MENU:,  and  the 
like.  This  feature  of  ST  BASIC  is 
very  handy,  and  you  may  want  to 
use  it  in  some  of  your  own  projects. 

This  program  also  takes  ad- 
vantage of  the  ST's  VDl  (Virtual 
Device  Interface)  routines.  These 
high-powered  PEEK  and  POKE 
procedures  enable  the  use  of  such 
tasks  as  reading  the  location  of  the 
mouse  pointer,  drawing  boxes  and 
octagons,  and  writing  text  to  the 
screen.  Each  VDI  routine  is  clearly 
labeled  and  is  highly  transportable 
to  other  programs. 

Getting  Started 

As  noted,  Menu  Driver  can  be  used 
with  either  a  monochrome  or  a  color 
monitor.  If  you  are  using  a  color 


Brian  Flynn 


monitor,  set  the  screen  resolution  to 
medium.  Choose  Set  Preferences 
from  the  Options  pull-down  menu 
on  the  GEM  desktop.  You  will  be 
offered  two  choices:  Low  Resolution 
and  Medium  Resolution.  Select  the 
latter.  Then  load  ST  BASIC  as  usual. 

If  you  are  using  a  monochrome 
monitor,  don't  worry  about  screen 
resolution.  It's  automatically  set  to 
high,  and  it  cannot  be  changed. 

Now,  type  in  and  save  the 
program. 

Using  Ttie  Program 

By  way  of  example,  the  program  is 
currently  set  up  to  run  ten  BASIC 
programs  found  in  the  chapter  on 
games  in  ST  Applications.  Upon 
running  the  menu  driver,  a  list  of 
program  names  appears,  beginning 
with  "Enigma"  and  ending  with 
"Bunny's  Tic-Tac-Toe."  Assuming 
your  disk  contained  these  pro- 
grams, all  you  would  need  to  do  is 
click  the  mouse  to  load  and  run  a 
program. 

To  modify  the  driver  to  accom- 
modate other  sets  of  programs,  fol- 
low these  simple  steps: 

1 .  Choose  a  title  for  your  group 
of  programs,  and  place  it  in  line 
360.  The  program  will  automatically 
center  your  entry. 

2.  Indicate  in  line  670  the  num- 
ber of  programs  in  your  group,  Up 
to  ten  programs  are  allowed. 

3.  At  the  end  of  the  driver 
(lines  1850-onward)^  enter  two 
names  for  each  program: 

•  the  full  program  title  to  be 
displayed  on  the  screen. 

•  the  actual  filename,  with 
.BAS  included. 


Finally,   save   your   menu-driver 

with  a  suitable  name  like  GAMES- 
.BAS  for  games,  or  perhaps  MONEY 
.BAS  for  a  group  of  financial  appli- 
cations. For  convenience,  the  menu 
driver  should  be  saved  on  the  same 
disk  as  the  ST  BASIC  programs  that 
it  is  set  up  to  load. 

If  you  follow  the  example  set 
by  the  game  programs  already  en- 
tered, you  should  have  no  problem 
customizing  Atari  ST  Menu  Driver 
for  your  own  purposes.  In  fact,  you 
may  want  to  create  a  menu-driver 
for  each  category  of  BASIC  pro- 
grams that  you  have  occasion  to 
access. 


For  instructions  on  entering  this  program, 
please  refer  to  "COMPUTE! 's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 

Atari  ST  Menu  Driver 

100    REM  GAMES 

U0    QOSU&  SETSCREEN 

120    GOSUB  TITLEBflR 

130    GQSUB  KEYVflLUES 

140    GOSUB  HIDE. ARROW 

150    GOSUB  DRAW.MENU 

160    GOSUB  RETURN. BAR 

170    GOSUB  COPYRIGHT 

18£l    GQSUB  SHOM.  ARRQU 

190    GQSUB  CHOOSE 

200    GDSUB  GOODBYE 

210    CHAIN  TITLE. SHORTt (PIC 

KX) 
220 

230  SETSCREEN I 
240  DEFINT  A-Z 
250    ST  =  3-PEEK(SYBTAB) :  R 

EM  SCREEN  (1 -COLOR,  2-MC 

HROME) 
260    '    COLORS  (WHITE,  VEL 

LOW,  ORANGE,  BLAOC) 
270    DATA  1911,1874,1825,0 
28a    FOR  1=0  TO  3 I  READ  KDL 

DR(I):  NEXT 
290    LC#  -  1114:  POKE  LC#,V 

ARPTR(KQLOR<0) ) 
300    '    ADD-FACTOR  FOR  COL 

OR  SCREEN 
310    IF  BT  »  1  THEN  CS  -  3 
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ELSE  C3  -  a 
320    RETURN 
33«    TITLEBARl 
340    FULLU  2 I  CLEARW  2 
350    COLOR  3 

360    T«  =  "Sam»B  d+  Skill" 
370    T»  =  SPACE*  (2)  +•  T»  + 

SPACE* (2) 
380    AT*  =  CHR*(14)+CHR*<15 

) 
390    T«  =  SPACE* (4)  +  AT*  + 

T*  +  AT*  +  SPACE* (4) 
400    Y=15»ST+4i  CN«  -  "ON": 

QQSUB  TEXT. WRITE 
410    RETURN 
420    TEXT. WRITE I 
430    LN  '    LEN(T«) 
440    IF  CN«  -  "ON"  THEN  X  - 

312  -  LN*B/2 
430   POKE  CONTRL.Bi  POKE  CO 

NTRL+2,li  POKE  CONTRL+6, 

LN 
460    FOR  a  ■i  1  TO  LN 
470    POKE  INTIN  +  (a-l)»2,A 

SC(MID*<T*,Q,  D) 
4S0    NEXT  Q 
490    POKE  PTSIN.Xi  POKE  PTS 

IN+2,Yi  VDISye<0) 
S00    RETURN 
510    KEY VALUES I 
520    DIM  TITLE.L0NS*(1»>,  T 

ITLE. SHORT* < 10) 
530    '    OCTAGONS 
540    DATA  -4,-3,-6,-1,-6, 1, 

-4,3,4,3,6, 1,6, -1,4,-3, - 

4,-3 
350    DATA  -3,-6,-6,-3,-6,3, 

3,-6 

560    FOR  I-ITO  9;  READ  XQ(I 

),yS(I)i  NEXT 
570    FOR  I=1T0  9 
580    READ  X,Y 
390    IF  BT  -  2  THEN  XBtl)  - 

Xl  YB(I)  «  Y 
600    NEXT 

610    '    INDEX  i,   STYLE 
620    DATA  1, 1,4,2 
630    FOR  I-ITO  2 
640    READ  INDEX (I) .STYLE (IJ 
650    NEXT 

660    '    PROBRAM  NAMES 
670    N  -  101  REM  NUMBER  OF 

PROGRAMS 
6B0    FOR  I=1T0  N 
690    READ  TITLE.LONG«(I) ,  T 

ITLE.SHQRT*(I) 
700    NEXT 

710    BELL*  =  CHR*(7) 
720    RETURN 
730    DRAW.MENUi 
740    COLOR  1,2,1, INDEX (ST), 

STYLE (ST! 
750    X 1-1 101  Y1-5»8T!  X2-51 

01  Y2>140«5T:  BOSUB  BAR 
760    Xl=140s  Y1=15«ST!  X2=4 

801  Y2=130»ST:  BOSUB  BAR 
770    FILL  310,10«ST 
780    PICKX  =  1:  P  =  li  CN» 

=  "OFF" 
790    FOR  I-=lTO  N 
B00    X  =  250:  V  "  (10«I+40) 

*ST+CS 
ai0    T«  =■  TITLE. L0N5*<I) 
820    GOSUB  TEXT. WRITE 
830    IF  I  =  PICKX  THEN  Z  - 

9  ELSE  Z  -  6 
840    CHOICE  =  I:  GOSUB  DRAW 

. SHAPE 
850  NEXT  I 
860    RETURN 


870    BAR I 

680    LINEF  Xl,Yl,Xl,Y2i  LIN 

EF  Xl,Y2,X2,Y2 
B90    LINEF  X2,Y2,X2,Yli  UN 

EF  X2,Y1,X1,Y1 
900    RETURN 
910    DRAW. SH APE 1 
920    X  -  2201  Y  »  (10«CHQIC 

E+37)*ST  +  CS 
930    POKE  CONTRL,Zt  POKE  CO 

NTRL+2,9t  POKE  CONTRL+6, 

0 
940    CNT  »  0 
950    FOR  J  -  ITO  9 
960    POKE  PTSIN+CNT,X+XQCJ) 

I  POKE  PTSIN+CNT+2, Y+Y6C 

J) 
970    CNT  -  CNT  +  4 
980    NEXT  J 
990    VDISYS(0) 
1000   RETURN 
1010   RETURN. BAR I 
1020   COLOR  1,1,1,1,1 
1030   X  1=2703  Yl-144«STs  X2'- 

3S09  Y2«154tSTi  GOSUB  8A 

R 
1040   FILL  310,150»ST 
1030   V  =  li  GOSUB  LETTER INS 
1060   V  X  3i  GOSUB  WRITE. MOD 

E 
1070   CN«  -  "ON"l  Y  =  171*ST 

■♦■ca 

10S0   T*  -  "Return"!  GOSUB  T 

EXT. WRITE 
1090   V  -  01  BOSUB  LETTERING 
1100   V  -  It  Q03UB  WRITE. MOD 

E 
1110  PRINT  BELL«| 
1120   RETURN 
1130   LETTERING! 
1140   POKE  CONTRL,i06i  POKE 

CONTRL+2,01  POKE  CONTRL+ 

6,1 
1150   POKE  INTIN, Vi  VDISYS(0 

) 
1160   RETURN 
1170  WRITE. MODE! 
1180   POKE  C0NTRL,32i  POKE  C 

ONTRL+2,01  POKE  CONTRL+6 

.1 

1190   POKE  INTIN, V:  VDISYS<0 

) 
1200   RETURN 
1210   COPYRIGHT! 
1220   Y  =  183«ST+CBi  COLOR  3 
1230  T«  -  "Copyright  1986, 

COMPUTE!  Publication*,  I 

nc .  " 
1240   BOSUB  TEXT. WRITE 
1250   RETURN 
1260   CHOOSE I 
1270   GOSUB  CLICK IT 
1280   IF  X>270  AND  X<3S0  AND 

Y>143*BT  AND  Y<155»ST  T 

HEN  1330 
1290   V  =  INT((Y-13»ST)/(10« 

ST)  ) 
1300   IF  X>200  AND  X<420  AND 

V  >  0  AND  V  <=  N  THEN  P 
»  V 
1310   BOSUB  CHANBE. CHOICE 
1320   PICKX  -  P 
1330   BOSUB  BURBLE 
1340   SOTO  CHOaSE 
1350   RETURN 
1360   CLICKITi 
1370   MOUSE  =  0 
1380   WHILE  MOUSE  -  0 
1390   POKE  CONTRL, 124!  POKE 

CONTRL+2,0!  POKE  CONTRL+ 

6,0 


1400   VDISYS(0) 

1410   X-PEEK(PTSOUT) I  Y-PEEK 

<PTS0UT+2) 
1420   Y  =  Y-19«ST-CS 
1430   MOUSE  =  PEEKdNTOUT) 
1440   WEND 
1450   RETURN 
1460   CHANGE. CHOICE! 
1470   BOSUB  HIDE. ARROW 
1480   COLOR  1,0:  Z  =  9j  CHOI 

CE  =  PICKX:  GOSUB  DRAW.S 
HAPE 
1490   Z  -  6l  GOSUB  DRAW.SHAP 

E 
1500   COLOR  l,2i  Z  -  9:  CHOI 

CE  =  P:  GOSUB  DRAW. SHAPE 
1510   BOSUB  SHOW. ARROW 
1520   RETURN 
1530   HIDE.  ARROW: 
1540   POKE  CONTRL, 123 I  POKE 

CONTRL+2,0:  POKE  CONTRL+ 

6,0 
1550   VDISYS(0) 
1560   RETURN 
1570   SHOW. ARROW! 
1S80   POKE  CONTRL, 122 I  POKE 

CONTRL+2,01  POKE  CONTRL+ 

6,1 
1390   POKE  INTIN, 01  VDISYS<0 

) 
1600   RETURN 
1610   BURBLE: 
1620   NOTE  =  4 
1630   FDR  B-=1T0  5 
1640   NOTE  =  6  -  NOTE 
1650   SOUND  1,8, NOTE, 4,1 
1660   NEXT  e 
1670   SOUND  1,0 
1680   RETURN 
1690   BOODBYEt 
1700   '    RESET  COLORS 
1710   CLEARW  2 
1720   KOLORd)  -  1570:  KOLOR 

(2)  =  609 
1730   POKE  LC#,  VARPTR (KOLOR 

(0)  ) 
1740   '    CLEAR  TITLE  BAR 
1750   CN«  =  "ON":  Y  =  15»ST+ 

4 
1760   T»  -  SPACE* (22) I  BOSUB 

TEXT. WRITE 
1770   '    DISPLAY  MEBSABE 
1780   COLOR  1 
1790   Y  =  90»ST!  Q»  =  CHR»<3 

4> 
1800   T*  -  "Loading  "  +  Q*  + 

TITLE. LONG* (PICKX)  +  Q* 
1810   BOSUB  TEXT. WRITE 
1820   RETURN 
1830   ' 

1840   REM  PROGRAM  NAMES 
1S50   DATA  Enigma,  ENIBMA.BA 

S 
1860   DATA  "ElBfflBntary,  Wats 

on",  WATSON. BA8 
1B70   DATA  Knights  Errant,  K 

NIBHTS.BftS 
1880   DATA  Pharaoh's  Pyramid 

,  PYRAMID. BAS 
IB90  DATA  Roman  ChBckarm,  R 

OMAN. BAS 
1900   DATA  Falataf*,  FAL8TAF 

F.BAS 
1910   DATA  Mosaic  Puizl»,  MO 

SAIC.BAS 
1920   DATA  Hi-Q,  HIB.BAS 
1930   DATA  Solitaira  Ch»ck«r 

s,  SOLTRE.BAS 
1940  DATA  Bunny'*  Tic-Tac-T 

OB,  TTT.BAS  /» 
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NRI  Trains  You  At  Home— As  You  Build  Your  Own  IBM-Compatible  Computer 

GET  THE  KNOMHIOW 

TO  SERVICE  EVERY 

COMPUTER  ON  THIS  PAGE 


Learn  the  Basics  the  NRI 
Way- and  Earn  Good 
Money  Troubleshooting 
Any  Brand  of  Computer 

The  biggest  growth  in  jobs 
between  now  and  1995, 
accordiny  to  Department  of 
Labor  estimates,  will  occur  in 
the  computer  service  and  repair 
business,  where  demand  for 
trained  technicians  will  actually 
double. 

You  can  cash  in  on 
this  opportunity— either 
as  a  full-time  corporate 
technician  or  an  inde- 
pendent service-person 
—once  you've  learned  all 
the  basics  of  computers 
the  NRI  way.  NRI's 
practical  combination  of 
"reason-why"  theory  and 
"hands-on"  building  skills 
starts  you  with  the  funda- 
mentals of  electronics,  then 
guides  you  through  advanced 
electronic  circuitry  and  on  into 
computer  electronics.  You  also 
learn  to  program  in  BASIC  and  machine 
language,  the  essential  languages  for 
troubleshooting  and  repair. 

Total  Computer  Systems 
n-alning,  Only  From  NRI 

No  computer  starids  alone . . .  it's  part  of 
a  total  system.  To  really  service  computers, 
you  have  to  understand  computer  systems. 
And  only  NRI  includes  a  powerhil  com- 
puter system  as  part  of  your  training, 
centered  around  the  new  fully  IBM 
compatible  Sanyo  880  Series  computer. 

You  start  with  the  step-by-step 
assembly  of  the  new,  highly  rated  fully 
IBM  compatible  Sanyo  880  Series  com- 
puter. You  install  and  troubleshoot  the 
"intelligent"  keyboard.  Then  you  assem- 
ble the  power  supply,  install  the  disk 
drive,  and  add  extra  memory  to  give  you 
a  powerful  256K  ElAM  system.  The  new 
880  computer  has  two  operating  speeds: 
standard  IBM  speed  of  4.77  MHz  and  a 
remarkable  turho  speed  of  8  MHz,  mak- 
ing it  almost  twice  as  fast  as  the  IBM  PC. 
Next,  you'll  interface  the  high-resolution 
monitor  and  begin  to  use  the  valuable 
software  also  included  with  your  com- 
plete computer  system. 


IBM  is  a  RegisterBd  Tra[femart(  of  IBM 
CorpDration. 


Epson  Is  B  Registered  Tredemartt  ol  Epson 
America,  Inc. 


no  need  to  quit  your  present  job  until 
you're  ready  to  make  your  move.  Your 
training  is  backed  up  by  your  personal 
NRI  instructor  and  the  NRI  technical  staff, 
ready  to  answer  your  questions 
and  help  you  when  you 
need  it.  You  get  it  ail  with 
NRI  at-home  training. 

100-Page  Free 
Catalog  Tells  More 

Send  the  postage-paid 
reply  card  today  for 
NRI's  big,  100-page, 
color  catalog  on  NRI's 
eiectronics  training, 
which  gives  you  all 
the  facts  about 
NR]  courses 
in  Micro- 


computers, 
Robotics, 
Data  Com- 
munications, 
TV/Audio/ 
Video  Servicing, 
and  other  growing 
high-tech  career  fields. 
If  the  reply  card  is  missing, 
write  to  the  address  below. 


It  all  adds  up  to  confidence- 
building,  real-world  experience 
that  includes  training  in  program- 
ming, circuit  design,  and  peripheral 
maintenance.  You'll  be  learning  about, 
working  with,  servicing,  and  trouble- 
shooting an  entire  computer  system- 
monitor,  keyboard,  computer,  disk  drive, 
power  supply— to  ensure  that  you  have 
all  the  essential  skills  you  need  to  succeed 
as  a  professional  computer  service 
technician. 

No  Experience  Needed, 
NRI  Builds  It  in 

This  is  the  kind  of  practical,  hands-on 
experience  that  makes  you  uniquely 
prepared,  with  the  skills  and  confidence 
you  need  for  success.  You  learn  at  your 
own  convenience  in  your  own  home. 
No  classroom  pressures,  no  night  school, 


Your  NRI  total  systems  training  includes: 
•  NRI  DIscoverv  Lab'  to  design  and  modify  circuits  • 
Your  four.function  digital  multimeter  with  walkyou- 
througti  inslnjclions  on  audio  tape  •  Digital  logic 
probe  lor  visual  examination  of  keyboarei  circuits  • 
The  newest  Sanyo  8B0  Series  Computer  with  "inlelli- 
gent"  keyboard  and  360  K  double.density,  double-sided 
disk  drive  •  High  resolution  monochrome  monitor  •  8K 
ROM,  256K  RAH/I  •  Bundled  software  including  GW 
BASIC,  MS-DOS,  WordStar,  CalcStar  •  Reference 
manuals,  schematics,  and  bite-sized  lessons. 


SCHOOLS 

.VicCjr*nvv-!-iill  Continuing  Mucalinn  Center 
3939  Wiscon.sin  Avenue,  NW 
Washington,  DC  20016 


We'll  Give  You  Tomorrow. 


m 


Smooth  Out 
For  The  Atari 


This  sophisticated  graphics  technique 
lets  you  smooth  out  the  rough  lines  of 
your  graphics  screens  in  mere  sec- 
onds. For  the  Atari  400,  800,  XL,  and 
XE  with  48K  or  more  of  RAM. 


One  of  the  strangest  of  the  many 
graphics  nnodes  of  the  Atari  eight- 
bit  con\puters  is  GRAPHICS  9.  It 
allows  as  many  as  16  different 
shades  of  each  color.  That's  twice 
the  number  of  intensities  available 
on  the  Atari  ST.  But  that  doesn't 
mean  that  you  can  get  ST-quality 
pictures  on  the  eight-bit  ma- 
chines— the  resolution  simply  isn't 
high  enough.  While  an  ST's  "low- 
resolution"  screen  offers 
320  X  200  pixels,  GRAPHICS  9  is 
limited  to  80  X  192  pixels. 

When  you  draw  on  such  a  low- 
resolution  screen,  you're  likely  to 
see  jaggies,  the  stairstep  effects  you 
see  on  lines  that  are  drawn  at  an 
angle  (nonhorizontal  or  nonvertical 
lines).  One  common  method  used 
to  eliminate  jaggies  is  antialiasing,  a 
complex  smoothing  method  used  in 
advanced  paint  programs  such  as 
Deluxe  Paint  U.  In  "Smooth  Out,"  a 
related  method — pixel  averaging — 
is  used  to  smooth  the  entire  screen 
at  once. 

Pixel  averaging  smooths  pic- 
tures by  blurring  them.  As  a  result, 
the  process  is  better  suited  to  land- 
scapes and  portraits  than  to  bar 
charts  and  boxes. 

Typing  It  In 

Type  in  Program  1  and  save  it  to 
tape  or  disk.  Do  not  run  the  pro- 
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gram  yet — it  is  not  a  complete  pro- 
gram until  you  add  the  lines  from 
either  Program  2  or  Program  3. 

Program  2  is  a  very  short  dem- 
onstration of  Smooth  Out.  Load 
Program  1,  type  in  the  lines  from 
Program  2  and  then  save  the  result- 
ing program  with  a  unique  file- 
name. Program  3  draws  an  alien 
landscape.  Follow  the  same  proce- 
dure with  Program  3  as  you  did 
with  Program  2. 

When  you're  ready  to  try  one 
of  the  sample  programs,  load  it  and 
type  RUN.  A  picture  is  drawn  on 
the  screen.  When  the  picture  is  fin- 
ished, you'll  hear  a  tone.  Press 
START,  and  Smooth  Out  will 
smooth  the  screen  with  a  machine 
language  subroutine.  Press  START 
again  to  end  the  program. 

Behind  The  Scene 

Pixel  averaging  can  be  done  in 
many  ways.  The  smoothing  algo- 
rithm used  here  adds  up  the  values 
of  the  surrounding  eight  pixels  and 
divides  the  total  by  8  to  find  the 
new  value  of  the  pixel.  This  must  be 
done  for  each  pixel  on  the  screen.  In 
machine  language,  the  task  takes 
seconds.  If  I  had  used  BASIC,  it 
would  have  taken  more  than  30 
minutes. 

If  you  want  to  use  this  program 
with  your  own  graphics  screens, 
insert  the  lines  to  draw  your 
GRAPHICS  9  screen  between  lines 
100  and  5000  of  Program  1.  (Be 
sure  not  to  remove  line  100.) 

For  an  interesting  effect,  try 
changing  the  GRAPHICS  9  state- 
ments in  the  programs  to  GRAPH- 
ICS 11.  (See  lines  100  and  5040.) 


For  instnjctions  on  entering  these  programs, 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
in  Programs"  elsewhere  in  this  issue. 

Program  1:  Smooth  Out 


BB  90  R 
P 
C 
D 

JI  92  P 

T 


EM  COPYRIGHT  1987  COM 

UTE!  PUBLICATIONS,   IN 

ALL  RIGHTS  RESERVE 

■RINT  " CCLEARJCDPYRIQH 
1987":PRINT  "COMPUTE 
PUBLICPiTIONS,   INC.": 

■RINT  "ALL  RIGHTS  RESE 


CJ  5000 


An  50  10 
KP  5020 

EA  5030 

FD  5040 
6C  5050 
BB  5060 
EL  5070 

U  5080 
6C  5100 


Hn  5  1  1  0 

K!  5120 
OH  5200 

AC  52  10 

PE  5220 

flP  5230 

AS  5240 

JC  5250 

nS  5260 

ND  5270 


EN  RESTORE  5200: FOR 

A=0  TO  153:REflD  B:PO 

KE  1536+A, B: NEXT  A 

GDSUB  5100 

POKE  203, PEEK CBB) : PO 

KE  204,  PEEK  {S<?) 

POKE  106, PEEK(106)-4 

8 

GRAPHICS  <? 

A=USR ( 1536) 

GOSUB  5100 

POKE  106, MEMTOP: GRflP 

HICS  0 

END 

FOR  A=15  TO  0  STEP  - 

1:S0UND  0,100, 10, A:N 

EXT  A 

IF  PEEK(5327?)<>6  TH 

EN  S110 

RETURN 

DATA  104, 169,0, 

05, 160 

DATA 


77,203 

DATA  145,88,169,81,1 

33, 206 

DATA  169,0,133,207,1 

62,  7 

DATA  165,206,24,125, 

146,  6 

DATA  74,144,8,163,17 

7,203 
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DI  52B0 

DATA  41, 15,76,60,6, 1 

68 

l!S  5290 

DATA  177,203,74,74,7 

4,74 

BD  5300 

DATA  24,  101 , 207,  133, 

207,202 

PS  3310 

DATA  16,224,163,206, 

74, 144 

ICDS320 

DATA  9, l&B, 165,207,7 

4,74 

HK  5330 

DATA  74,76,88,6,168, 

165 

IP  5340 

DATA  207,10,41,240,1 

7,ea 

CO  5350 

DATA  145,88,230,206, 

165,206 

6(15360 

DATA  201, 159,208, 186 

, 165, 203 

ON  5370 

DATA  24, 105,40, 133,2 

03, 165 

OL  5380 

DATA  204,105,0,133,2 

04, 165 

JO  5390 

DATA  88,24,105,40,13 

3,88 

JK  5400 

DATA  165,89, 105,0, 13 

3,89 

Eil5410 

DATA  230,205,165,205 

,201, 190 

CC5420 

DATA  208,136,160,40, 

177,203 

M5430 

DATA  145,88,200,192, 

80,208 

£f  5440 

DATA  247,96,175,176, 

177,255 

110  5450 

DATA  1,79,80,81 

Program  2:  Smooth  Out 
Demo 

DC  110  FOR  A=l  TD  25 

LL  120  X  =  INT  (RND  (0)  «57) +1 

DK  130  Y-INT  (RND  (0)  *  150) +  1 

ES  140  COLOR  INT  (RND  (0)  *16) 

OE  150  FOR  B=X  TD  X  +  19 

ei  160  PLOT  X+10,  Y:  DRAWTD  B, 

Y  +  39 

ND  170  NEXT  B:  NEXT  A 

Program  3:  Alien  Landscape 


CL  1  10 


PO  120 

IF  130 

ni  140 

W  150 

NL  160 


HS  170 
DI  180 


M  190 
DK  200 

NC  2  10 
KL  220 
AI  230 


N3  240 
DK  250 
Kit  260 


COLOR 
WTO  79 
1  SDRAM 

0,0 
FDR  A  = 
IF  A-1 
:SOTO 
X=55: Y 
FDR  B  = 
COLOR 
:PLOT 
5 

NEXT  B 
FOR  A  = 
R  INT  ( 
T  1  ,  A: 
RAWTO 
FOR  A  = 
IF  A-1 
sSOTO 
X=39s Y 
FOR  B  = 
CDLDR 
4: PLOT 
90 

NEXT  B 
FOR  A  = 
COLOR 
5:PL0T 
190: NE 


12: PLOT 
, 0: DRAM 
TO  0, 19 

1  TO  2 

THEN  X 
150 
=  40 

1  TO  78 
INT(RND 
X, Y:DRA 

:NEXT  A 
130  TD 
RND (0)1 
DRAWTD 
78, AsNE 
1  TO  2 

THEN  X 
220 
=  95 

1  TD  78 
INT (RND 

X, Y:DR 

sNEXT  A 
1  TO  25 
INT (RND 
1 , 70:D 
XT  A 


0,0: DRA 
TO  79, 19 
1 : DRAMTO 


=30: Y-30 


(0) «5)+2 
WTD  B, 13 


190: COLD 
7>  +5: PLO 
39, A-5: D 
XT  A 

=  55:  Y-=B0 


STEP  2 
(0>  t 10)  + 
AWTO  B, 1 


(0) «10)+ 
RAWTO  A, 


Nim: 

The  Ultimate 
Binary  Game 

Jim  Butterfield,  Associate  Editor 


The  best  way  to  beat  the  computer  in 
this  classic  strategy  game  is  to  know 
how  to  convert  numbers  from  decimal 
to  binary.  The  accompanying  program 
was  written  in  Commodore  BASIC 
and  runs  on  any  Commodore  eight-bit 
computer.  With  minor  modifications, 
it  could  also  be  adapted  to  work  with 
other  versions  of  Microsoft  BASIC. 


"Nim"  is  one  of  the  simplest  games 
ever  invented,  yet  successful  play 
requires  at  least  an  intuitive  grasp 
of  binary  numbers,  the  system  used 
by  all  digital  computers. 

Here's  how  Nim  is  played.  You 
take  a  bunch  of  objects  (toothpicks, 
matches,  coins,  whatever)  and  ar- 
range them  randomly  in  three  or 
more  piles.  You  and  your  opponent 
alternate  taking  turns.  During  a 
turn,  a  player  may  take  as  many 
objects  as  he  or  she  wishes  from 
any  one  pile  (but  only  from  one 
pile).  The  player  taking  the  last  ob- 
ject wins. 

That's  a  description  of  the 
standard  game  of  Nim.  Several 
variations  exist.  In  one  variation, 
the  player  taking  the  last  object 


loses.  In  another,  there  is  a  maxi- 
mum number  of  objects  that  may 
be  taken  during  a  turn.  The  pro- 
gram presented  here  plays  all  three 
versions  of  the  game,  switching  the 
rules  from  one  game  to  the  next. 
Type  the  program  in  and  save  a 
copy  before  you  run  it.  The  pro- 
gram should  run  as  listed  on  any 
eight-bit  Commodore  computer, 
and  with  minor  modifications  on 
any  eight-bit  computer. 

Simple  Play  Ttieory 

The  classic  game  of  Nim  (last  object 
wins,  pick  any  number)  has  a  very 
elegant  playing  strategy  that  re- 
quires knowledge  of  binary  num- 
bers. (If  you  are  not  familiar  with 
the  binary  numbering  system,  see 
"From  Decimal  to  Binary,"  accom- 
panying this  article.) 

Count  the  number  of  objects  in 
each  pile,  and  write  down  each 
number,  one  above  the  other,  in 
binary.  For  example,  if  there  are 
three  piles  of  objects,  containing 
three,  four,  and  five  objects,  respec- 
tively, you  would  write 


3 

1 

1 

4 

1 

0 

0 

5 

1 

0 

1 

Note  that  the  binary  numbers 
are  lined  up  on  the  right  side,  just  as 
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we  would  arrange  conventional 
numbers.  Now,  you  should  ask, 
does  every  column  (not  row)  have 
an  even  number  of  I's  in  it? 

If  the  answer  is  yes,  you're 
stuck.  The  best  you  can  do  is  make 
some  random  move  and  hope  your 
opponent  stumbles  when  he  or  she 
plays. 

But  if  the  answer  is  no,  you 
have  a  winning  play.  The  play  is  to 
take  from  a  pile  in  such  a  way  so 
that  all  columns  have  even  parity — 
an  even  number  of  I's. 

Let's  look  at  the  example  given 
above.  The  right  column  has  two 
bits  set,  so  that's  even  parity.  The 
middle  column  has  only  one  bit  set. 
That's  an  odd  number,  so  you  have 
a  winning  play. 

It  takes  some  time,  at  first,  to 
examine  the  possible  moves.  In  this 
case,  it  turns  out  there's  only  one 
move  that  produces  even  parity. 
Here's  the  move:  Take  two  from  the 
first  column,  leaving 
1  1 

4  10        0 

5  10        1 

Examine  the  columns  of  the 
binary  numbers,  and  you'll  see  that 
they  all  contain  an  even  number  of 
bits  (zero  or  two  in  this  case).  Your 
opponent  now  has  no  satisfactory 
play. 

Let's  carry  this  game  through 
to  its  conclusion.  Suppose  your  op- 
ponent takes  four  objects  from  the 
largest  column,  leaving  one.  Line 
up  the  numbers  again: 
1  1 

4        10        0 
1  1 

Your  play  to  restore  even  pari- 
ty is  obvious.  Grab  the  entire  pile  of 
four  to  leave: 


What  can  your  opponent  do 
now?  Not  much.  On  the  next  turn, 
he  or  she  must  take  the  lone  piece 
from  either  one  of  the  piles,  after 
which  you  will  take  the  last  object 
from  the  remaining  pile  and  win. 

Variations 

The  classic  game  has  a  clear  and 
easy  strategy.  The  task  becomes 
more  complex  when  we  limit  the 
number  of  objects  that  may  be  tak- 
en on  each  play.  Extra  difficulties 
arise  when  we  decide  that  the  play- 


er taking  the  last  object  will  lose 
instead  of  win.  But  the  basic  game 
strategy  remains,  built  upon  a  foun- 
dation of  binary  numbers. 

I  won't  go  into  the  extra  theory 
and  strategy  here.  If  you're  interest- 
ed, you  can  examine  the  program  to 
see  what  makes  it  such  a  good 
player. 

The  Good  And  The  Bad 

You  might  find  it  dull  to  play 
against  a  computer  that  wins  every 
time,  so  the  computer  has  been  giv- 
en an  IQ.  The  computer  asks  at  the 
beginning  of  the  game  if  it  should 
play  the  best  it  can.  If  you  you  reply 
N  for  no,  it  will  sometimes  make 
mistakes,  giving  even  an  inexperi- 
enced player  a  chance  to  win. 

Even  if  you  don't  know  binary, 
you  can  become  skilled  at  this 
game — you'll  begin  to  spot  win- 
ning combinations.  Be  forewarned: 
Every  time  the  computer  loses  a 
game,  it  becomes  a  better  player.  So 
the  next  game  may  not  be  as  easy. 

Eventually,  if  you  master  the 
theory  of  play,  you  will  be  able  to 
beat  the  computer  every  time. 
That's  because  the  computer,  after 
setdng  up  a  random  board,  asks 
you  whether  you  want  the  first 
move.  If  you  have  a  good  play,  take 
the  first  move  and  make  it.  If  you 
don't  seem  to  have  a  good  move, 
pass  the  first  move  to  the  computer. 

Program  Notes 

One  odd  expression  in  the  program 
implements  exclusive  OR.  Unlike 
the  standard  OR  operator,  exclusive 
OR  is  true  only  when  one  operand 
is  true  and  the  other  is  false  (the 
standard  OR  is  also  true  when  both 
operands  are  true).  Exclusive  OR 
can  be  simulated  with  the  AND, 
OR,  and  NOT  operators: 
X  =  (A  OR  B)  AND  NOT(A  AND  B) 

If  your  specialty  is  machine  lan- 
guage, the  6502  processor  has  an 
exclusive  OR  (EOR)  command  built 
in. 

If  you  are  interested  in  figuring 
out  how  the  program  works,  you'll 
need  to  understand  the  roles  of 
some  variables.  R  is  the  playing 
rule — if  it  is  1,  the  last  player  wins, 
if  it  is  0,  the  last  player  loses.  N9  is 
the  maximum  number  of  objects 
you  are  allowed  to  pick  up.  If  you 
are  allowed  to  choose  any  number 
of  objects,  N9  is  set  to  99. 


From  Decimal 
To  Binary 

The  binary  numbering  system  is 
used  by  computers  because  each 
bit — the  smallest  unit  of  storage  in 
a  computer's  memory — can  have 
only  two  states,  0  or  L  These  two 
states  correspond  to  the  off  and  on 
states  of  the  electronic  switches  that 
make  up  the  brain  of  the  computer. 
Just  as  it  is  easy  for  us  to  do  decimal 
(base  10)  math  with  our  fingers,  so 
it  is  easy  for  computers  to  do  binary 
(base  2)  math. 

The  binary  and  decimal  sys- 
tems are  just  two  different  ways  of 
looking  at  the  same  thing:  numeric 
quantities.  Instead  of  saying, 
"Look!  There  are  seven  (base  10) 
trees,"  we  could  just  as  correctly 
state,  "Look!  There  are  111  (base  2) 
trees."  The  trick  is  learning  how  to 
convert  from  one  base  to  another. 

Perhaps  the  simplest  way  to 
convert  from  base  10  to  base  2  is  to 
construct  a  value  box  (at  first  on 
paper,  but  eventually  in  your  head). 
Here's  a  value  box  that  will  convert 
numbers  from  0  to  255  in  decimal. 


128    64 

32 

16 

8 

4 

2       1 

1 

Now  let's  pick  a  number  to  be 
converted.  We'll  use  20. 

Going  from  left  to  right,  find 
the  first  number  in  the  value  box 
that  is  less  than  or  equal  to  20.  In 
this  case,  the  number  is  16.  Color  in 
the  box  under  the  number  16. 

We  have  represented  16  of  the 
20  objects  that  we  wish  to  repre- 
sent. Subtract  16  from  20 — we  have 
4  more  objects  to  represent.  Contin- 
ue scanning  across  from  left  to 
right.  We  pass  8,  but  since  4  is  less 
than  or  equal  to  4,  we  color  in  the 
box  under  the  4.  When  we  subtract 
4  from  4,  we  get  0,  so  we  have  now 
completed  our  conversion.  All  of 
the  empty  boxes  represent  Os,  and 
all  of  the  filled  boxes  represent  Is. 
The  result  is  00010100.  We  can 
write  binary  numbers  without  lead- 
ing zeros  (those  to  the  left  of  the 
first  significant  digit),  so  decimal  20 
is  10100  in  binary. 
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The  array  A(  )  holds  the  play- 
ing board.  P( )  is  the  original  (previ- 
ous) board,  in  case  you  want  to  play 
the  same  game  over  again.  S(  )  is  a 
scrambling  array,  to  give  the  com- 
puter's strategy  a  little  variety.  If 
the  computer  player  has  more  than 
one  possible  winning  move,  it 
might  pick  either  one,  depending 
on  the  contents  of  S( ). 

Playing  Against  Humans 

If  you  play  this  game  against  anoth- 
er person,  remember  that  psycholo- 
gy is  an  important  part  of  your 
playing  style.  You  should  make 
your  moves  without  hesitation  if 
possible.  This  is  especially  true 
when  you  don't  have  a  winning 
move — you  don't  want  to  tip  off 
your  opponent  that  you  may  be  in 
trouble. 

And  don't  take  a  piece  of  paper 
and  start  writing  out  numbers  in  bi- 
nary. Learn  to  do  it  in  your  head.  It's 
a  good  step  to  computer  literacy. 

Nim 

For  Instructions  on  entering  ttiis  program, 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Programs"  elsewhere  in  ttiis  issue. 


XQ    100 

KE  110 
ED  120 
JK  130 

ME  140 
EG  150 
EP  160 
RH  170 
HG  180 


SG  190 

HD  200 

GF  210 

RB  220 

PG  230 

ED  240 

DH  250 

PX  260 

QE  2  70 

HK  2S0 

CD  290 


XX  300 


FC  310 

RK  320 

CB  330 

HO  340 

XC  350 


PRINT"(CLR) (2  DOWN)": PR 

INT  TAB(17)"(RVS)  NIH  " 

J=RND{-TI) 

DIM  A{5),P(5),S(5),N(5) 

FOR  J=l  TO  4:S(J)=J:NEX 

T  J 

H$="{hOME}(13  DOWNJ" 

C$=HS+"{35  SPACES )"+H5 

PRINT  CHR$(8);CHR$(142) 

PRINT "RULES:" 

PRINT" {2  SPACES  3 EACH  PL 

AYER  PICKS  AS  MANY  ITEM 

S" 

PRINT" {2  SPACESiAS  DESI 

RED  FROM  ANY  ONE  ROW.  " 

PRINT 

PRINT "THE  WINNER  IS  THE 

PLAYER  WHO  PICKS" 
PRINT "THE  LAST  ITEM." 
PRINT 

PRINT "WE  EACH  PLAY  IN  T 
URN." 
PRINT 

X$="N" :INPUT"SH0ULD  I  P 
LAY  MY  BEST  GAME";X? 
I=.5:IF  X?="Y"  OR  X5="Y 
ES"  THEN  1=1 
PRINT 

IF  1=1  THEN  PRINT" PUNY 
[SPACEJHUMANI (2  SPACES) 
YOU  HAVEN'T  A  HOPE." 
IF  Kl  THEN  PRINT"MAYBE 

I ' LL  LET  YOU  WIN  ONE  0 
R  TWO  GAMES. 
FOR  J=l  TO  500:NEXT 
R=1:N9=99 
T=0 

FOR  J=l  TO  4 
A(J)=INT(RND(1)*7) :T=T+ 
A(J) 


XR  360  NEXT  J 

PS  370  IF  T<4  THEN  330 

EB  380  FOR  J=l  TO  4 

BA  390  P(J)=A(J) !K=INT(RND(1)* 

4)+l 
DG  400  T=S(K):S(K)=S(J):S(J)=T 
GX  410  NEXT  J 
EG  420  M=0:H0=0 
MH  430  PRINT" {CLR} (DOWNJPLAYER 

TAKING  LAST  ITEM  "; 
SS  440  IF  R=0  THEN  PRINT "LOSES 

*l 

DB  450  IF  R=l  THEN  PRINT "WINS" 

CE  460  PRINT 

GF  470  IF  N9=99  THEN  PRINT"PIC 

K  AS  MANY  AS  YOU  LIKE" 
EQ  480  IF  N9<99  THEN  PRINT "YOU 
MAY  PICK  NO  MORE  THAN" 

;N9 
SH  490  PRINT 

XJ  500  R9=0!T6=0:T8=0:T9=0 
SG  510  FOR  J=l  TO  4 
EB  520  PRINT  CHR? ( J+64 ) ; " :  " ; 
FQ  530  FOR  K=l  TO  9 
PR  540  C=209!lF  K>A(J)  THEN  C= 

32 
PF  550  PRINT  CHR$(C);"  "? 
MM  560  NEXT  K 
JE  570  PRINT: PRINT 
RM  580  K=S(J) 
MB  590  N=INT(A(K)/(N9+1)) iH(K) 

=A(K)-N*(N9+1) 
KJ  600  IF  N(K)=1  THEN  T8=T8+1 : 

T3=K 
QF  610  IF  N(K)>1  THEN  T9=T9+1: 

T4=K 
DF  620  IF  A(K)>T6  THEN  T6=A(K) 

:T5=K 
DR  630  NEXT  J 
BE  640  IF  M>0  THEN  680 
PE  650  PRINT  C?; 
JF  660  X5="N":INPUT"D0  YOU  WAN 

T  THE  FIRST  MOVE" ;X5 
BM  670  IF  X$="Y"  OR  X$="YES"  T 

HEN  H0=1 
RF  680  M=M+1:IF  H0=1  THEN  900 
QJ  690  T=0 

EH  700  IF  R=l  THEN  770 
KC  710  IF  T9=0  AND  T8=0  THEN  8 

00 
QC  720  J1=T3:IF  T9>0  THEN  J1=T 

4 
JA  730  X=N(J1):IF  T8=INT(T8/2) 

*2  THEN  X=X-1 
AX  740  IF  X=0  THEN  770 
BJ  750  IF  T9<2  THEN  870 
BE  760  REM  CONVENTIONAL  ANALYS 

IS 
RK  770  FOR  J=l  TO  4 
KJ  780  T=(T  OR  N(J))  AND  aOT(T 

AND  N{J)) 
BJ  790  NEXT  J 
JR  800  J1=T5:X=T6:IF  X>N9  THEN 

X=N9 
HC  810  IF  T=0  THEN  870 
EM  820  FOR  J=l  TO  4 
KK  830  K=S(J) 
BM  840  T0=(T  OR  N(K))  AND  NOT ( 

T  AND  N(K)) 
EF  S50  IF  T0<N(K)  AND  (N(K)-T0 

)<N9  THEN  J1=K!X=«N(K)-T 

0 
AQ  860  NEXT  J 
KX  870  IF  RND(1)>I  THEN  X=INT ( 

RND(1)*T6)+1:J1=T5:IF  X 

>N9  THEN  X=N9 
BK  880  PRINT  CS;"I  TAKE"rX;"FR 

OM  ROW  ";CHR5(Jl+64) 
GP  890  GOTO  1000 
EE  900  PRINT  C$; "CHOOSE  A  ROW 

(SPACE} (OR  {rVS}  G 


(off)  TO  GIVE  UP):"; 
XE  910  GET  X5!lF  X$=""  THEN  91 

0 
KX  920  IF  X?="G"  THEN  M0=R;GOT 

0  1140 
HC  930  J1=ASC(X$)-64:IF  JKl  0 

R  Jl>4  THEN  900 
HG  940  IF  A(J1)=0  THEN  900 
FS  950  PRINT  CS;"HOW  MANY  FROM 
ROW  ";CHR5(64+J1 ); ":  " 

BX  960  GET  X?sIF  X5=""  THEN  96 
0 

BB  970  X=ASC{X?)-43:IF  X<0  OR 

{ SPACE  )X>9  THEI^  960 
GP  980  IF  X=0  OR  X>A(J1)  OR  X> 
N9  THEN  PRINT"7?77":FOR 

J=l  TO  500 :NEXT: GOTO  9 
00 
CK  990  PRINT  X 

EE  1000  PRINT"[H0ME3{2  DOWN}" 
FJ  1010  FOR  K=l  TO  Jl: PRINT: PR 

INT: NEXT  K 
CX  1020  PRINT  TAB(3); 
BS  1030  FOR  K=l  TO  Xs PRINT"-  " 

; sNEXT  K 
JK  1040  A(J1)=A(J1)-X 
GG  1050  T=0 
PX  1060  FOR  J=l  TO  4 
FR  1070  IF  A(J)<>0  THEN  T=l 
HS  1080  NEXT  J 
PM  1090  M0=1-M0 
PK  1100  IF  T=0  THEN  1140 
GX  1110  FOR  J=l  TO  750! NEXT  J 
MB  1120  PRINT" (HOME) {4  DOWN) " 
AD  1130  GOTO  500 
JC  1140  PRINT  C?; 
DR  1150  IF  R=M0  THEN  W0=W0+1 : P 

RINT"I  WINi" 
GK  1160  IF  ROM0  THEN  W1=W1+1: 

PRINT"YOU  WINI" 
JH  1170  PRINT 
MG  1180  PRINT"THAT  MAKES" jWl;" 

GAME"; 
DX  1190  IF  Wlol  THEN  PRINT"S" 

PC  1200  PRINT"  FOR  YOU" 

CD  1210  PRINT " AND "fW0r "FOR  ME. 


BG  1220 


MJ  1230 
JP  1240 
GQ  1250 

QB  1260 

SC  1270 

QJ  1280 

CD  1290 
SM  1300 
CC  1310 

SG  1320 
CG  1330 


QB  1340 

CC  1350 
JC  1360 

HD  1370 
RC  1380 
HG  1390 

SE  1400 


IF  Kl  AND  W1>W0  AND  R 

<>H0  AND  Rl=a  THEN  GOS 

UB  1380 

PRINT 

R1=0 

X?="Y":INPUT"PLAY  AGAI 

N";XS 

IF  X$="N"  OR  X5="N0"  T 

HEN  END 

X$="N":INPUT"SAME  GAME 

AS  LAST  TIME";X9 
IF  X?<>"N"  AND  X$<>"NO 
"  THEIS  1350 

IF  RND(1)>.35  THEN  330 
IF  RNDCl)>.6  THEN  1330 
R=1-R!R9=5 ;PRINTjPR1NT 
" { RVS )  RULE  CHANGE  " 
FOR  J=l  TO  500: NEXT  J 
IF  RND(1)<.6  THEN  N9=I 
NT(RNDU)*4)+3:IF  N9>5 

THEN  N9=99 
GOTO  330 
Rl=l 

FOR  J=l  TO  4:A(J)=P(J) 
iNEXT  J 
GOTO  420 
I=lt.75 

PRINT"DON'T  FEEL  TOO  S 
MART . " 
PRINT" I  CAN  DO  BETTER  1 


RK  1410  RETURN 
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Double-Duty  DOS 


The  Apple  11  has  Iwo  popular  operat- 
ing systems,  DOS  3.3  and  ProDOS.  If 
you've  ever  been  trapped  between 
them,  you'll  appreciate  this  utility — 
it  adds  new  conunands  to  let  you  read 
and  write  DOS  3.3  files  from  within 
ProDOS,  and  move  ProDOS  files  to 
DOS  3.3. 


Most  Apple  users  have  two  stacks 
of  disks — one  stack  ProDOS  and 
one  stack  DOS  3.3.  That's  not  a 
problem  until  you  want  to  use  a 
program  in  one  operating  system 
that's  written  for  the  other  one. 
Some  people  convert  all  of  their  3.3 
files  to  ProDOS  format  with  a  con- 
version utility.  For  the  user  with  a 
large  number  of  DOS  3.3  disks,  this 
can  be  a  trying  experience. 

"Double-Duty  DOS"  offers  a 
different  approach — it  lets  you  view 
DOS  3.3  catalogs  and  load  and  save 
BASIC  and  machine  language  pro- 
grams, all  from  within  ProDOS. 

Since  this  program  is  a  Pro- 
DOS  utility,  be  sure  to  boot  with 
ProDOS  when  you  are  ready  to 
type  it  in.  The  program  must  be 
entered  with  the  Apple  version  of 
the  "MLX"  machine  language  entry 
program,  which  can  be  found  else- 
where in  this  issue.  When  MLX  asks 
for  a  starting  and  ending  address, 
respond  with  these  values: 


STARTING  ADDRESS? 
ENDING  ADDRESS? 


3000 
3A17 


Type  in  the  program.  Before  leav- 
ing MLX,  be  sure  to  save  a  copy  to 
disk. 

A  Door  To  The  Old  World 

Let's  give  Double-Duty  DOS  a  test 
drive.  Boot  up  in  ProDOS  and  BRUN 
the  program.  In  addition  to  the  nor- 
mal commands  that  are  available  in 
ProDOS,  you  have  several  new  ones 


Jason  Coleman 

designed  especially   for  accessing 
DOS  3.3  disks. 

Here  is  a  list  of  the  new 
commands: 

DCAT  ,Ss  ,Dd 

DiOAD  filename  ,^  mem  foe  ,Ss  ,Dt! 
DSAVE  filename  ,Ss  ,Dd 
DSAVE  filename,  AShhhh,  LShhhh  ,Ss 
,Dd 

Parameters  in  italics  are  op- 
tional. The  s  stands  for  slot  number, 
and  d  is  for  drive  number.  Place  a 
DOS  3.3  disk  in  the  drive  and  type 
DCAT.  You'll  see  a  list  of  all  the 
files  on  the  disk.  You  can  then  load 
any  of  these  DOS  3.3  files  using  the 
DLOAD  command,  and  save  them 
to  a  ProDOS  disk  with  the  standard 
SAVE  or  BSAVE  commands. 

In  the  DLOAD  command,  the 
load  address  can  be  specified  as 
a  decimal  or  hexadecimal  num- 
ber. Precede  hexadecimal  values 
with  a  $.  For  example,  DLOAD 
TEST,S6,D0,A$900  loads  a  DOS 
3.3  binary  file  named  TEST  into 
location  $900  from  slot  6,  drive  0. 

You  can  also  move  files  from 
ProDOS  disks  to  DOS  3.3  disks. 
Simply  load  a  program  from  a  Pro- 
DOS  disk  and  save  it  to  a  DOS  3.3 
disk  with  the  DSAVE  command. 
Because  of  a  limitation  in  DOS  3.3, 
you  cannot  save  programs  larger 
than  122  sectors  (30K). 

While  the  DLOAD  command 
mimics  both  the  normal  LOAD 
command  and  the  BLOAD  com- 
mands, DSAVE  has  two  different 
syntaxes.  The  first  form  listed 
above  is  for  use  with  BASIC  files, 
similar  to  SAVE.  The  second  form  is 
for  binary  files,  and  is  used  like  the 
BSAVE  command.  Note  that  in  the 
second  form,  the  address  and 
length  parameters  must  both  be 
specified  in  hexadecimal  (preceded 
with  a  $). 

Double-Duty  DOS  comes  in 
handy  any  time  you  need  to  move 
from  one  world  to  another. 


Double-Duty  DOS 

Please  refer  to  the  "Apple  MLX"  article  in  this 
issue  before  entering  ttie  following  program. 
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Dazzlers 


Paul  W,  Carlson 


Grab  your  sunglasses — here  come  the 
dazzlers!  Several  derfws  are  included 
along  with  information  on  how  to 
create  your  own  brilliant,  rapidly 
changing  patterns.  For  the  IBM 
PC/PCjr  or  compatible  with  a  color/ 
graphics  adapter  or  equivalent  hard- 
ware. Requires  BASICA  for  the  PC, 
GW-BASIC  for  coinpatibles,  and  Car- 
tridge BASIC  for  the  PCjr. 


Everyone  has  their  own   favorite 

graphics  demos.  "Dazzlers"  is  a 
collection  of  programs,  each  featur- 
ing flowing  colors  and  simulated 
movement.  After  seeing  these  ka- 
leidoscopic displays,  you  may  de- 
cide to  put  a  couple  of  them  onto 
your  own  favorite  demo  disk.  After 
you've  tried  the  patterns  I've  in- 
cluded, you  may  even  want  to  de- 
sign some  of  your  own. 

Program  1  is  the  main  program 
for  Dazzlers.  It  cannot  be  used  in- 
dependently, but  must  be  com- 
bined with  one  of  five  subroutines 
{Programs  2-6).  Type  in  and  save  a 
copy  of  Program  1.  Then  add  the 
lines  from  one  of  the  subroutines  to 
the  program  and  save  it  with  a 
unique  filename.  Run  the  program. 
The  screen  clears;  then  it's  filled 
with  solid  white.  Next,  blocks  of 
color  appear  on  the  screen,  forming 
an  intricate  pattern.  And  finally,  the 
colors  are  repeatedly  cycled.  Press 
any  key  after  the  colors  begin 
changing  to  clear  the  screen  and 
end  the  program. 


Waves  of  color  ripple  across  the  screen 
in  "Dazzlers,"  a  set  of  animated  grapltics 
demos. 


The  Subroutines 

Any  of  the  subroutines  (Programs 
2-5)  can  be  used  by  merging  them 
with  Program  1.  There  are  a  num- 
ber of  elements  common  to  each  of 
these  subroutines.  And  for  a  rea- 
son: Once  an  interesting  pattern  is 
created,  making  only  minor  changes 
in  the  subroutine  will  create  an  en- 
tirely different  and  unique  pattern. 
This  is  an  important  point  to  re- 
member when  designing  your  own 
dazzler  subroutines. 

Here  are  a  few  more  points  to 
keep  in  mind:  The  subroutine 
should  POKE  values  from  0  to  15 
into  every  odd-numbered  memory 
location  in  video  page  0  from  1  to 
1999.  The  same  numbers  must  also 
be  POKEd  into  the  odd  locations  of 
video  page  1  (2049-4047).  To  make 
the  colors  flow  properly,  adjacent 
characters  (adjacent  horizontally, 
vertically,  or  diagonally)  should 
have   consecutive   color   numbers. 


One  method  that  can  be  used  to 
generate  consecutive  color  num- 
bers is  to  enclose  a  statement  such 
as  C=(C  +  1)  AND  15  in  a  loop, 
where  the  variable  C  is  the  color 
number.  This  statement  will  assign 
to  C  the  repeating  sequence  of  con- 
secutive numbers  0-15. 

An  almost  endless  variety  of 
patterns  is  possible.  You  can  lay  out 
a  pattern  on  graph  paper  and  then 
write  a  subroutine  that  will  repro- 
duce the  pattern  on  the  screen,  or 
you  can  simply  alter  a  previous 
subroutine  until  you  get  something 
totally  new.  Both  methods  were 
used  to  write  the  subroutines  in  this 
article. 

How  It  Works 

At  the  heart  of  the  program  is  a 
short,  very  fast  machine  language 
routine  that  increments  every  char- 
acter's foreground  color.  Those 
characters  with  a  foreground  color 
number  of  15  receive  a  foreground 
color  number  of  zero.  For  machine 
language  programmers,  the  figure 
shows  the  source  code  for  this 
program. 

Line  10  in  the  BASIC  program 
reserves  an  area  of  memory  for  the 
machine  language  routine.  Lines 
20-80  POKE  the  machine  language 
routine  into  the  reserved  memory. 
Line  90  sets  up  a  40-column  color 
screen  with  video  page  0  the  active 
page  and  video  page  1  the  display 
page.  Each  page  is  each  2048  bytes 
long,  although  only  the  first  2000 
bytes  of  each  page  are  used.  The 
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Source  Code  for  Color-Changing  Routine 

This  subroutine  increments  the  foreground  color  of  every 
character  on  video  page  0  or  page  1.   The  subroutine  is  called 
with  the  video  page  offset  as  the  only  argument. 


CSEG     SEGMENT 
DAZZLE   PROC 

ASSUME 

PUSH 

MOV 

MOV 

MOV 

MOV 

MOV 

INC 

MOV 
MLOOP:   MOV 

MOV 

INC 

AHD 

AND 

OR 

MOV 

INC 

INC 

LOOP 

POP 

RET 
DAZZLE   END? 
CSEG     ENDS 

EHD 


FAR 

CSiCSEG 

ES 

BP,SP 

AX,0BS00H 

ES,AX 

SI,6[BP] 

DI.WORD  PTR  [SI] 

DI 

CX,1000 

AL,ES:[DI] 

DL,AL 

DL 

DL,15 

AL,240 

AL.DL 

ES : [ DI ] , AL 

DI 

DI 

MLOOP 

ES 

2 


;Save  the  extra  segment 
;Make  BP  point  to  stack 
; Set  extra  segment  to  start  of 

video  FAM 
;SI  is  address  of  page  offset 
; DI  is  page  offset 
;Bump  DI  to  attribute  byte 
;1000  bytes  to  move 
;Get  attribute  byte 
;Copy  byte  into  DL 
; Increment  attribute  byte 
;DL  is  new  foreground  color 
rMaak  out  old  foreground  color 
;OR  in  new  foreground  color 
;Move  new  attribute  byte  to  video  RAM 
;Bump  DI  to  next  attribute  byte 

rGet  next  attribute  byte 
; Restore  the  extra  segment 
r Clean  up  the  stack 


even-numbered  bytes  contain  the 
ASCII  code  that  determines  which 
character  wiW  appear  on  the  screen. 
Line  100  of  the  program  POKEs  the 
number  219,  the  ASCII  code  for  a 
solid  block,  into  the  even-numbered 
bytes  of  both  video  pages  0  and  1. 
This  is  what  causes  the  screen  to  fill 
with  solid  white.  Then  line  100  exe- 
cutes a  GOSUB  1000  which  POKEs 
the  foreground  color  numbers  into 
the  odd-numbered  bytes  of  both 
pages. 

The  odd-numbered  bytes  con- 
tain the  color  information  for  each 
character.  Before  the  subroutine  re- 
turns, it  assigns  a  value  to  the  vari- 
able TD,  which  controls  the  time 
delay.  In  line  110,  the  variable  A  is 
the  address  of  the  machine  language 
routine,  and  the  variables  F%  and 
S%  are  the  number  of  bytes  from 
the  beginning  of  video  RAM  for 
video  page  0  and  page  1.  Lines  120 
and  130  form  a  loop  in  which  the 
foreground  colors  of  the  video  page 
not  being  displayed  are  increment- 
ed. That  page  is  then  displayed,  a 
time  delay  is  executed,  and  the  key- 
board is  checked  for  a  keypress. 
Line  140  is  executed  when  a  key  is 
pressed,  clearing  the  screen  and  re- 
turning the  display  to  80-column 
video  mode. 


For  Instructions  on  entering  these  programs, 
pleoss  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Programs"  elsewhere  in  tliis  Issue. 


Program  1:  Dazzlers 

CJ  1  'Copyright  lija?  COMPUTE!  Pu 
blicatians.  Inc.   All  Right 
s  Reserved. 
KC  3  KEY  OFF:  CLS:  LOCATE  10,  34:  PR 
INT-Copyright  19S7":PRINT  T 
AB(2B) "COMPUTE!  Publication 
s,  Inc. ":PR1NT  TAB(31) "All 
Rights  Reserved. "i FOR  1=1 
TO  1S00SNEXT  I 
F«  10  DEF  SEB:  CLEAR,  !,H3FF0:N=«<H4 

000 
HN  20  READ  A*:  IF  A*="/"  THEN  90 
DC  30  POKE  N,VAL("&H"+A»):N=N+1; 

SOTD  20 
Hf  40  DATA  06,aB,EC,B8,00,Ba,BE, 

C0,8B,7i 
OH  50  DATA  06,BB,3C,47,B9,Ea,03, 

2A,BA,05 
80  60  DATA  BA,D0.FE,C2,S0,E2,0F, 

24,F0,0A 
IK  70  DATA  C2,26,8a,05,47,47,E2, 

EB,07,CA 
m   80  DATA  02,00,/ 
FP  90  WIDTH  40:  SCREEN  0,1,0,1:CL 

S:DEF  SEB-SiHBB00 
PK  100  FOR  N=0  TQ  2046  STEP  2:P0 
KE  N, 219: POKE  N+204B,219: 
NEXT: GOSUB  1000 
OB  110  DEF  SEG:A=S.H4000:FX=0:SX= 

2046 
Hf  120  CALL  A (FX): SCREEN  ,,,0:FO 
R  N-1  TO  T0S  NEXT:  CALL  AO 
X): SCREEN  , , , 1 
OK  130  FOR  N=l  TO  TD:  NEXT:  IF  INK 

EY»-""  THEN  120 
m   140  WIDTH  80: CLS: END 


Program  2:  Subroutine  1 

Bfl  99B    '    Subroutine    1 

KJ  999    ' 

KF    1000    FOR    P=0    TO    1:F0R   R=0   TO 

12!C=R:K=2048«P 
HD   1010   FDR   L=0    TO    38   STEP   2!C=( 

C+1)    AND    la 
flE    1020    POKE    1+B0«R+L+K,C:PDKE    7 

9+B0«R-L+K,C 
IH  1030  POKE  1921-80»R+L+K,C:PDK 


E  1999-B0«R-L+K,C:NeXTiN 
EXTsNEXT 
NO  1040  TD=50:  RETURN 

Program  3:  Subroutine  2 

HC  998    '    Subroutine   2 

KJ   999    ' 

KF    1000    FOR    P=0   TO    1:FDR   R=0    TO 

12:C-R:K-204S*P 
ND    1010    FOR    L-0    TD    3B    STEP    2:C=< 

C+1)     AND    15 
KK    1020    POKE    41+a0tR+L+K,C:POKE 

39+B0*F!-L+K,C 
DO    1030    POKE    l'?61-a0tR+L+K,C:POK 

E    1959-a0tR-L+K,CiNEXT:N 

EXT J  NEXT 
hO    1040    TD=50!  RETURN 

Program  4:  Subroutine  3 


IE  99B  ' 
KJ  999  • 
BK  1000 


Subroutine  3 


FOR  P=0  TO  l:FOR  R=0  TO 

6:C»R:K-204atP 
LB  1010  FOR  L=0  TD  IB  STEP  2:  C=  ( 

C+1)  AND  15 
HI  1020  D=l+B0tR+L+K:PaKE  D,C:PO 

KE  D+40,C-POKE  D+960,C:P 

QKE  D+1000,C 
CL  1030  D=39+a0«R-L+K:PDKE  D,C:P 

QKE  D+40,C:POKE  D+960,C: 

POKE  D+1000,C 
EB  1040  D=961-30«R+L+K:POKE'  D,C: 

POKE  D+40,C:POKE  D+960,C 

:PDKE  D+1000,C 
OH  1050  D=999-a0«R-L+K;POKE  D,C: 

POKE  D+40,C:POKE  D+960,C 

SPOKE  D+1000,C:NEXT:NEXT 

:NEXT 
HE  1060  TD=50:  RETURN 

Program  5:  Subroutine  4 

JB  99B    '    Subroutine    4 

KJ   999    ' 

nC  1000  FOR  P=0  TO  l:FaR  C=0  TO 

1 1 : N=2048«P+B2»C-1 
EE  1010  FOR  K=C  TO  39-C:  N=N+2:  PO 

KE  N,C:NEXT 
OF  1020  FOR  K=C  TO  23-C:  N=N+B0:  P 

OKE  N,C:NEXT 
HK  1030  FOR  K=C  TO  3B-C:  N=N-2:  PO 

KE  N,C:NEXT 
6F  1040  FOR  K-C  TD  22-C!  N=N-80:  P 

OKE  N,C:NEXT:NEXT 
HL  1050  FOR  N=9a3  TD  1015  STEP  2 

I  POKE  N+2048»P, 12lNEXT:N 

EXT 
HK  1060  TD=  100:  RETURN 

Program  6:  Subroutine  5 


LI  998 
KJ  999 
PB  1000 


Subroutine  5 


FOR    P=0    TO    1:F0R    C=0    TO 

1 1 : N-204B»P+82*C-1 : B= 1 
n    1010    FOR    K=C    TO    39-C:N=N+2:B= 
(B+1)    AND    1S:P0KE   N,B:NE 

XT:B=2 
LE    1020    FOR    K=C    TD    23-C:  N=N+a0:  B 

=(B+1)    AND    15: POKE    N,B:N 

EXT:B=1 
CK    1030    FOR    K=C    TD   38-C:  N=N-2:  B= 

(B+l)     AND    IS: POKE    N,B:NE 

XT:B=2 
HL    1040    FOR    K=C    TO    22-C:  N=N-80:  B 

=(B+1)    AND    15:PDKE    N,B:N 

EXT:NEXT:B=17 
m    1050    FDR    N=9a5    TD    1015    STEP   2 

sB-CB+1)    AND    15:P0KE   N+2 

04a«P,B: NEXT: NEXT 
m.    1060    TD=100:RETURN  © 
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Word  War 


This  simple  but  challenging  word 
game  pits  you  against  a  friend  and  is 
bound  to  provide  hours  of  entertain- 
ment. The  game  requires  512K  of 
RAM,  Amiga  Basic,  and  Kickstart 
version  1.2. 


"Word  War"  is  a  quick-paced  word 
game  that  takes  advantage  of  the 
Amiga's  advanced  features — its 
mouse,  many  colors,  and  excellent 
sound.  The  object  is  simple — play- 
ers guess  letters  and  words  to  take 
over  the  Power  Bar  gauge  located  at 
the  top  of  the  screen.  Whenever  a 
player  correctly  guesses  a  letter  or 
word,  his  or  her  color  eats  up  more 
of  the  Power  Bar.  When  one  play- 
er's color  overwhelms  the  other, 
the  game  is  over.  In  essence,  Word 
War  combines  the  playing  concepts 
of  both  hangman  and  tug-of-war. 

Typing  It  In 

Word  War  is  written  in  Amiga 
Basic.  Type  it  in  and  save  a  copy  to 
disk.  When  you're  ready  to  play, 
load  and  run  the  program. 

Enter  the  names  of  the  two 
players.  The  game  screen  will  ap- 
pear. Take  a  moment  to  familiarize 
yourself  with  the  screen.  Near  the 
top  is  the  Power  Bar.  At  the  begin- 
ning of  the  game,  the  left  half  of  the 
bar  is  red  and  the  right  is  blue.  As 
the  players  score  points,  the  border 
between  the  colors  moves  to  the  left 
or  to  the  right.  Eventually,  one 
player  wins  the  game  by  taking 


Peter  Crosby 


over  the  entire  bar. 

Below  the  Power  Bar  are  two 
boxes  which  hold  the  names  of  the 
players.  Player  1  always  plays  red, 
while  player  2  plays  blue.  During 
player  I's  turn,  the  red  box  lights 
up.  During  player  2's  turn,  the  blue 
name  box  is  lit.  Both  players  should 
watch  these  boxes  to  be  sure  that 
they  do  not  play  their  opponent's 
turn. 


"Language"  is  the  secret  word  in  this 
round  of  "Word  War."  a  challeyiging 
game  for  the  Amiga. 

The  Action  Board  can  be  found 

directly  below  the  names  of  the 
players.  At  the  bottom  of  this  board 
is  the  alphabet.  A  mystery  word 
appears  in  the  small  box  which  ap- 
pears to  hang  from  the  Board.  At 
first  the  word  is  made  up  of  black 
squares  in  the  place  of  the  mystery 
word  letters.  Players  use  the  mouse 
to  point  at  and  click  on  the  letter  of 
the  alphabet  that  they  wish  to 
guess.  If  the  chosen  letter  can  be 
found  in  the  word,  each  occurrence 


of  the  letter  lights  up  in  the  word 
and  the  player  gets  another  turn.  In 
addition,  the  Power  Bar  moves 
slightly  in  favor  of  the  player.  If  the 
letter  cannot  be  found  in  the  word, 
the  other  player  gets  a  turn.  In  the 
center  of  the  board  is  a  box  labeled  / 
Know  It.  A  player  who  wants  to  take 
a  guess  at  the  mystery  word  can  use 
the  mouse  to  point  at  and  click  on 
this  box.  After  selecting  this  box, 
the  player  types  in  his  or  her  guess. 
If  it  is  correct,  the  Power  Bar 
changes  to  favor  the  player.  If  the 
guess  is  incorrect,  the  player's  op- 
ponent gains  points  instead. 

When  one  player  needs  to 
make  a  desperate  recovery,  or 
wants  to  jump  far  ahead  in  score,  he 
or  she  clicks  on  one  of  his  or  her 
three  Revival  Squares.  (This  can  be 
done  only  during  the  player's  turn.) 
These  squares  are  located  on  the 
extreme  left  (for  the  red  player)  and 
the  extreme  right  (for  the  blue  play- 
er) of  the  Action  Board.  During  the 
revival,  a  series  of  scrambled  words 
appears  at  the  top  of  the  screen.  The 
player  must  quickly  unscramble 
these  words  and  type  them  in. 
When  time  runs  out,  the  game  re- 
turns to  the  main  screen  and  the 
revival  points  are  placed  into  the 
power  bar.  During  the  revival,  the 
Delete  key  is  inactive.  To  correct  a 
typing  error,  use  the  space  bar  as  a 
Delete  key. 

The  accompanying  listing  has  a 
vocabulary  of  50  words.  If  you  wish 
to  use  more,  you  must  make  a  few 
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THE  CBS  COMPACT  DISC  CLUB  HAS  THE  MUSIC  YOU  WANT 

TAKE  ANY  3  FOR  «1  sj™ 


lTHU 


FLEETWOOD  MAC 
TANGO  IN  THE  NIGHT 


us -THE  JOSHUA  TfiEE 


354902 


354449 


353946 


3457S1 


349985.  Johnny  Molhis/ 
Henry  Mancini— The  Holly- 
wood Musicals  (Columbc^ 
348979.  Tino  Turner— 
Break  Every  Rule  (Capitol) 
352633.  Do)  lyParlon/ 
lirtdo  Rofistodt/Emmylou 
Horns— Trio  (Warner  Bros.) 
336396-396390.  Billy 
Joel's  Greatest  Hits. 
\fol.  1  &  2.  [Colurabial 
346643.  Andiwjs  Vollen- 
weidef— Down  To  The 
Moofl.[CBS) 
346478.  Modonno— 
True  Blue.  (5<re) 
343319.  Janet  Jock sofi- 
Contnsl  lA&Ml 

349571.  Boston-Third 

SogelMCA] 

290916.  The  Best  Of 
Sorth,  Wind  &  Fire, 
Ifel.  I  IColurabio/Arcj 


iHasa^ 


257279.  Bruce  Spring- 
steefl— Bof  n  to  Rl*i 
(Columbol 

13SS86.  Bob  Dylan's 
Greotest  Hits  (Columbo) 
319541.  fton  John- 
Greotest  Hits.  (MCA] 
342105.  Bangles- 
Different  tight.  {Columbia} 
287003.  Eagles  Greatest 
Hits  1971-1975  lAsyM 
347492.  Glenn  Miller 
Orchestra- In  The  Digttol 
Mood.  (Hgtol-GRPj 
293597  Led  Zeppdin- 
HousesOfTheHoly. 
(Atlarvtic) 

350736.  Rolling  Stooes- 

Rewind.  (Rdlrg  Stones 

Records] 

346957  Steve  Winv^ood 

-Bock  In  The  High  Ufe. 

(Island) 


344622.  Anita  Boker— 
Rapture.  |E!eklia) 
319W6-399998. 
Mo«own'5  25»l  Hits 
From  25  Yeors.  (Motowr^ 

291278.  The  Doobie 
Brothers— Best  of  the 
Doobies.  IV^rner  Bros.] 
345777  Peter  Gobrid— 
Sq  peffen) 
246868.  Jim  Croce- 
Photogrophs  And 
Memories— His  Greoteit 
Hits.  (Sojo] 
334391.  Whitney 
Houston.  jAristo] 
314443.  Neil  Diamond's 
12  Geeotast  Hits,  Vol.  2, 
[Coiumbo) 

308049,  Creedence 
Oearwater  Revrvol 
Featuring  John  Fogerty/ 
Chronicle.  20  greatest 
tiits.  [Fantasy) 


343582.  \bn  Hoten- 
5150.  [Warner  Bf OS .] 
326629.  Bruce  Spriog- 
steen— Born  In  The 
U3.A.  (Coluinbio) 
342097  Borbro 
Streisond- The 
Broodwoy  Album. 
(CdumbiQ) 
219477  SitnonS. 
Garfunkel's  Greatest 
Hits.  (Columbicj 
348649.  Pochelbel  Canon 
&  Other  Digital  Delights 
— "foronto  Oiomber  Orch. 
{D^ifd— Fonfare] 
353771.  Bolling/Rompat 
Suite  a2  for  Rute  &.  Jazz 
Piarxj  Trio  (Dgr'ol-CES] 
348318.  The  Polko- 
Ever  y  Breoth  You  Tbke 
-The  Singles  (ASM) 
346312,  Billy  Joel-The 
BrkJge.  [Ckjifo/— Columbio] 


336222.  Dire  Straits - 
Brothers  In  Arms. 
[Worner  Bros  ) 
341073.  Steely  Don- 
A  Decode  of  Steely  Don. 
|MCA] 

349373.  Beethoven: 
Symphony  No.  9  [Choral] 
Bernstein,  NY.  Phil. 
(Digiioi'y  J?enx)stefec/— 
CBS  Maslerworks) 
314997-394999.  Stevie 
Wonder's  Origirwl 
Musiquorium  I.  [Tomlo) 

348110.  Buddy  Holly- 
From  Tfie  Original 
Master  Ibpes-  (£>gita.'V 
)!emoslaTd-MCA] 

352245.  Dovid 
Sonbom  —A  Chonge  Of 
Heart,  [Worner  Bros  I 

351692.  Beosiie 
Boys— Licensed  To  II L 

[Def  Jam/Columbo] 


346544.  Kenny 
G— [Xxjtones.  [Arisio] 
344721.  Lionel 
Richie— Dondng  On  tlio 
Ceiling.  [Motown] 
335156.  Vlodimir  Florowitz 
Ploys  Favorite  Chopin 
pigildiy  femostered— 
CBS  Mosterworks) 
354985.  Billie  Holiday- 
From  The  Original  Decco 
Mosters-  (DvgitdV 
Remosterecf— MCA] 
323899.  The  Best  Of  The 
Alon  Parson's  Proiecf. 
[Arjsn] 

286740.  Linda  Ronstodi's 
Greatest  Hits.  fAsyluri] 
355115-395111.  Prince 
"Sign  "O'  The  Times. 
IPosreyPork] 
357IB6.  Hooters-One 
Way  Home-  (Columbol 


1^ 


352946 


HUEV  LEWtS 
>.,a  THE  NEWS 


355990 


353821 


356873.  The  Outfied- 
Bangin'.  [Cbumbio) 
355636.  Ozzy  Osboume 
— Rondy  Rboads  Tribute, 
(CBS  Assoc.) 
35S529.Pt»l.pGk3ss- 
Donce  Pieces.  (Drgitol- CBS) 
355362.  WFitesnake 
IGeflen) 

354829.  tiso-Liso  And 
Cult  Jom  With  Full 
Force— Sponish  Fly. 
[Columbia] 

354167  Don  Fogelberg— 
Exiles,  [full  Moori/Epcl 
354100.  Crowded  House. 
(Copitol) 

354035.  Owiglit  Ifookom 
—Hillbilly  Deluxe.  (Reprise) 
260638.  CWcagos 
Greatest  Hits,  jColumlxi) 
356279,  Gbrio  Estefan 
And  Miomi  Sound  Machine 
—Let  It  Loose,  [Epic] 


ri  COMPACT 
DIGITAL  AUDIO 


356154 


The  age  of  CD  sound  i»  Kere— and  you 
hove  o  procticol  new  v*oy  lo  find  the  COs 
you  wont.  As  your  introduclKin  to  the  CBS 
Compoct  Disc  Oub,  you  con  dioose  any 
3  CDs  listed  in  this  ad  for  just  $1.00.  Fill  in  and 
mail  the  application— we'll  send  your  CDs 
and  bll  you  for  $1.  You  simply  agree  to  buy 
2  more  CDs  |af  regular  Oub  prices)  in  the 
next  year— and  you  inay  then  cancel  your 
membership  anytime  after  doing  so. 
How  the  Club  works.  About  every  four 
weeks  (13  times  a  year)  you'll  receive  the 
Qubs  music  magazine,  which  desaibes  the 
Selection  of  the  Monlh  for  your  musical 
interest... plus  many  exciting  olternotes.  In 
addition,  up  to  six  limes  a  yeor,  you  moy  re- 
ceive offers  of  Special  Selections,  usually  at 
0  discount  off  regular  Oub  prices,  for  a  lotol 
of  up  to  19  buying  opportunities. 

If  you  wish  to  receive  the  Selection  of  the 
Month,  you  need  do  nothing— it  will  be 
shipped  automatically.  If  you  prefer  on  alter- 
nate selection,  or  none  at  oil,  fill  in  the 
response  card  always  provided  ond  mail  it 
by  the  date  specified,  'ibu  will  always  hove 
at  least  10  days  in  whidi  to  moke  your 

SefecticftS  with  two  numbers  contain  2  CDs  ond  count  os  2— so  write  in  twth  nunfcers. 


decision.  If  you  ever  receive  any  Selection 
wilhouf  having  10  days  to  decide,  you  may 
return  il  at  our  expense. 

The  CDs  you  order  during  your  member- 
ship will  be  billed  at  regulor  Oub  prices, 
which  currently  are  $14.98  to  $15.98— plus 
shipping  ond  handling.  (Multiple-unit  sets 
may  he  somewhat  higher.)  After  completing 
your  enrollment  agreement  you  may  cancel 
membership  ot  any  time;  if  you  dedde  to 
continue  as  o  member,  you'll  be  eligible  for 
our  money-saving  bonus  plan.  It  lets  you  buy 
one  CD  at  half  price  for  each  CD  you  buy  at 
regular  Oub  prices. 

lO-Doy  Free  Triah  We'll  send  detoils  of  the 
Oubs  operation  with  your  introductory 
shipment.  If  you  are  nol  satisfied  for  any 
reason  whatsoever,  just  return  everything 
within  10  days  and  you  will  hove  no  further 
obligation.  So  why  not  choose  3  CDs  foe 
$1  right  now. 

ADVANCE  BONUS  OFFER:  As  a  special 
offer  to  new  members,  lake  one  odditional 
Compact  DiX  right  now  and  pay  only  $6.95. 
It's  a  chance  to  ge!  a  fourth  sefeclion  at  a 
super  low  price! 

il  1987  Columbia  FHouse 


CBS  GOMMCT  WSC  Cll  B:  Tferre  Haute,  IN  47811 


CBS  COMfWCT  CHSC  QUB,  1400  N.  FnjitrkJgo 

RQ  Box  1129,  TertB  Houte,  Indiona  47811-1129 

Please  accept  my  membership  appJicoton  under  the  terms  outlined 

in  this  odvertiserrtent.  5end  me  tfie  3  Compact  Discs  listed  here  orKJ 

bill  me  only  $1.00  for  d!  tfiree.  I  agree  to  buy  two  more  selections 

at  regulor  Oub  prices  in  tfie  coming  yeor— ond  (tray  cancel  my 

membership  at  any  time  after  doing  so. 

5e^OM£THES£3CDS: 


"n 


My  main  musicol  interest  is  khedc  one):  fft-t  I  may  dwoys  dioose  from  ony  cotegoo^ 
Mr  D  ROCK/POP  DQASSICAL 

Mrs. 
Miss- 


Prinl  Firil  NOfl^ 

Address 


_Apt_ 


Gty- 


Stale Zip 

Do  you  have  a  VCR?  (Check  ooe.)    D  Yes     [H 1^  4B?yFa? 

Do  you  have  a  aedit  cord?  tCfieck  one.)    D  ^s    D  t^ 


ADVANa  BONUS  OfflRi  Also  serd  nvo 
0  k>url*i  CO  riglil  row  at  file  super  kj«v  price 
of  |ust  $6P5.  wfiidi  will  be  bill«J  to  me. 


Tljs  c/fe- a  nor  moJofcte  n  AKJ  fKi!  Abs/ia  Howi.  ftjerlD  lic!?  Pfeose  wnte  fcf 
de«sio/o*enxfreoffa:G3ncrfanresbEnr3V¥5ffbeierw5c/hvnfcmrfa        3VA//C2 
r^fi:  We  reserve  thengt*  to  ie|eci  any  opplicnrion 


or  cancel  any  membef  shfj 


3WW/C3 


11 


changes  to  the  program.  The  arrays 
Word${ )  and  RevWord{ )  must  be 
dimensioned  to  the  number  of 
words  in  your  word  data.  (The 
words  are  in  DATA  statements  at 
the  end  of  the  program.)  The  49  in 
the  FOR  X  =  0  TO  49  statement  of 
the  InitWords  subroutine  needs  to 
be  changed  to  the  number  of  words 
you  are  using  minus  one.  The  num- 
ber 50  in  the  RND  statements  of 
lines  100  and  550  should  also  be 
changed  to  reflect  the  revised  num- 
ber of  words.  At  the  start  of  each 
game,  BASIC  reads  words  from  the 
word  data  into  the  array  word, 
checking  for  duplication  as  it  pro- 
ceeds. The  greater  the  number  of 
words  used,  the  longer  the  delay  at 
the  start  of  a  game. 

Word  War 

For  instajctions  on  entering  this  program, 
ptease  refer  to  "COMPUTEI's  Guide  to  Typing 
in  Programs"  eisewhere  in  this  issue. 

■  WordWar-* 

■  Copyright  1987  COMPUTEl  Public 
ations,  Inc.* 

■  All  Rights  Reserved.* 
Header:* 

CLS: CLEAR* 

DIM  waveform! (255) .Word?  (50)  ,  Rev 

Word (50) ,PaLGoL(12, 3) ,UsedLetter 

(26)  ,  Juni?(12),  jm(12)  ,Used(12),Rg 

ues3S(12)* 

GOSUB  InitWords* 

GOSUB  MenuSet   * 

FOR  n=0  TO  127* 

waveforra%(n)=127:NEXT* 

WAVE  0,waveform%* 

SCREEN  2,320,200,5,1:WINDCW  2," 

Word  War" , ( 0 , 0 )- ( 3 11 , 186 ) , 16 , 2* 

PRINT  TAB( 13) "Copyright  1987":PR 

INT  TA-B(7)  "COMPUTEl  Publications 

,  Inc.":* 

PRINT  TAB (11) "All  Rights  Reserve 

d.":FOR  t=l  TO  10000 :NEXT* 

GOSUB  ReadCoLor* 

GOSUB  RestCoLor* 

GOSUB  PLayers  * 

LINE(30,20)-(282,32),31,bf:LINE( 

23,10)-(149,22) , 21, bf: LINE (149,1 

0)-(275,22),23,bf* 

LINE(22,9)-(276,23),30,b:LINE(21 

,8)-(277,24)  ,20,b   ■« 

LINE(40,39)-(110,52) ,31,bf:LINE( 

207,39)-(278,52),31,bf* 

LINE(30,29)-{100,42),24,bfsLlNE( 

29,2B)-(101,43),20,b* 

LINE(198,29)-{268,42) ,22,bf:LINE 

(197,28)-(269,43) ,20,b* 

LOCATE  5, 5: COLOR  30, 21: PRINT  PLa 

y9(l):C0L0R  30,23: LOCATE  5, 26: PR 

INT  PLay5(2) :C0L0R  20,0   * 

LINE ( 30, 50) -(282, 145), 31, bf: LINE 

(23,50)-(275,135),2  5,bfiLINE(23, 

50)-(275,135) ,20,b* 

LINE(3  5,136)-(40,150) ,28,bf :LINE 

(38,136)-(40,150),2,bf:LINE{258, 

136)-(263,150),28,bf:LINE(261,13 

6)-(263,I50) ,2,bf* 

LINE(45,136)-(50,150),31,bf!LINE 

(268,136)-(273, 150),31,bf   * 

LINE(30,158)-(2a2,168),31,bf:LIN 

E(23,150)-(275,161),29,bfiLINE(2 

2,149)-(276,162),20,b* 


COLOR  20,0:LINE(99,81)-(199,103) 

,27,b* 

LINE(9a,80)-(198,102),2,bf rCOLOR 

30,2sLOCATE  12 , 15 : PRINT" I  Know  I 

t"* 

FOR  y=  66  TO  106  STEP  15* 

LINE(3  5,y+l)-(45,y+ll) ,27,bf:LIN 

E(33,y)-(43,y+ia) ,24,bf* 

LINE(257,y+l)-(267,y+ll),27,bfiL 

INE(255,y)-(265,y+10),22,bf* 

NEXT  y* 

COLOR  20,4* 

er|="  "* 

Marker=149* 

P£Lag"=2  :  GOSUB  ChangePLay* 

WordNum=-l : BeepFLag=0* 

* 

Setup:* 

COLOR   30,0:WordNtmi=-WordNuni+l* 

LINE(45,110)-{259,122),27,b* 

LINE{44,109)-(258, 121 ),0,bf: LINE 

(44, 109)- (258, 121) ,2,b* 

FOR  3t  =  65  TO  90:  LOCATE  I5,x-5a:PR 

INT  CHR?(x) ; :NEXT     * 

COLOR  20,4* 

L=LEN(Word${WordNum) )* 

LetterLoc=INT((39-(L*2))/2)* 

FOR  x=l  TO  L* 

LOCATE  20,LetterLoc+x*2:CQLQR  ,2 

+XSPRINT  MIDS(Word5(WordNura) ,x,l 

)* 

NEXT* 

high=3:NumRight=0!FOR  x=l  TO  26: 

UsedLetter ( X ) =0 :NEXT* 

* 

MouseCLick:* 

IF  MOUSE  (0)=-0  THEN  MouseCLick* 

XLetter-M0USE(5)* 

YLetter=MOUSE ( 6 ) * 

IF  yLetter>110  AND  YLetter<121  A 

ND  XLetter>49  AND  XLetter<256  TH 

EN  GOSUB  SeLectLetter* 

IF  YLetter>80  AND  YLetter<102  AN 

D  XLetter>9a  AND  XLetter<198  THE 

N  GOSUB  Guessit* 

IF  YLetter>65  AND  YLetter<120  AN 

D  XLetter>33  AND  XLetter<43  THEN 

GOSUB  Revivel* 

IF  YLetter>65  AND  YLetter<120  AN 

D  XLetter>255  AND  XLetter<265  TH 

EN  GOSUB  Revive2* 

GOTO  MouseCLick* 

* 

GuessWord:* 

COLOR  2,0* 

GuessS=CHRS(SeLection)* 

FOR  g=l  TO  L* 

IF  MID$ (WordS(WordNum) ,g, 1)=UCAS 

ES (Guess?)  THEN  high=g+2 : GOSUB  H 

ighLight* 

NEXT  g* 

IF  BeepFLag=0  THEN  SOUND  80,5,15 

0,0: GOSUB  ChangePLay* 

BeepFLag=0* 

RETURN* 

* 

HighLight:* 

NumRight=NuinRight+l* 

IF  NuraRight=L  THEN  Winner* 

FOR  X=5a0  TO  1000  STEP  50* 

SOUND  x,l, 150,1 :NEXT     * 

FOR  X"=.l  TO  1  STEP  .1* 

PALETTE  high, X, X, 0 : FOR  y=0  TO  25 

0:NEXT  y,x* 

Score=3 :GOSUB  Score* 

BeepFLag=l* 

RETURN* 

* 

SeLectLetter:* 

SeLection= ( INT(XLetter/8 ) -5 ) +64* 

IF  U3edLetter(SeLection-64)=l  TH 

EN  GOTO  CLearMouse* 

UsedLetter (SeLeotion-64)=l* 

COLOR  0,0: LOCATE  15 , SeLection-58 


: PRINT  CHR?(SeLection)* 

GOSUB  GuessWord* 

GOTO  CLearMouse* 

* 

CLearMouse:* 

IF  MOUSE(0)<>0  THEN  CLearMOUSe* 

RETURN* 


Guessit:* 

COLOR  2,25* 
a5=INKEY?:IF  a?<>' 


THEN  Guessit 


IF  a5=CHR$(13)  THEN  Guessit* 

LOCATE  8,7 : INPUT" Your  Guess?  ",g 

w?* 

IF    UCASES(gw$)=Word$(WordNum)    TH 

EN    Score=(L-NuniRight}*5:G0TO  Win 

ner* 

FOR  X=200  TO  50  STEP  -10:SOUND  X 

,1,1 50, 2: NEXT* 

LINE(24,51)-(274,65) ,23,bf* 

Scor6= ( L-NumRight ) *  5 : GuessWr ong= 

1: GOSUB  ChangePLay* 

GOSUB  CLearMouse* 

RETURN* 

* 

Winner :* 

sl=1600;s2=1000: s3=800 :s4=600:3t 

=-100* 

FOR  Loop=  1  TO  4* 

FOR  x=3l  TO  s2  STEP  at* 

SOUND  X,1,150,1:NEXT* 

FOR  x=s3  TO  s4  STEP  St* 

SOUND  x,l, 150,1: NEXT    * 

FOR  high=3  TO  L+3* 

FOR  x=.l  TO  1  STEP  .1* 

PALETTE  high, x,x,0: NEXT  x* 

PALETTE  high, .4, .4,0* 

NEXT  high* 

sl=400: 32=600133=800 1 s4=1400:st= 

100* 

NEXT  Loop* 

GOSUB  Score* 

COLOR  0,0:LINE(24,51)-(274,65) ,2 

5,bf* 

LINE(23,150)-(275,161) ,29,bf    * 

GOSUB  RestCoLor* 

GOSUB  CLearMouse* 

BeepFLag=0* 

GOTO  Setup* 

* 

RestCoLor:* 

FOR  x=3  TO  16:PALETTE  x,0,0,0jNE 

XT  x: PALETTE  20,0,0,0* 

RETURN* 

* 

InitWords :* 

RESTORE  WordData* 

RANDOMIZE  TIMER* 

FOR  x=0  TO  49* 

100  y's(lNT(RND*50)  )  :IF  Word?(y)< 

>""  THEN  100* 

READ  WordS(y)* 

NEXT  X* 

RETURN* 

* 

ReadCoLor:* 

PALETTE  0,0,  .3,  .3* 

PALETTE  1 , 0 , . 3 , . 3* 

RESTORE  CoLorData* 

FOR  X=0  TO  11* 

FOR  y=0  TO  2* 

READ  PaLCoL(x,y)* 

NEXT  y* 

NEXT  X    * 

FOR  X=0  TO  11  * 

PALETTE  x+20,PaLCoL(x,0) ,PaLCoL( 

x,l),PaLCoL{x,2)* 

NEXT  X* 

RETURN* 

* 

PLayers:* 

COLOR  2,21* 

LINE(34,6l)-(284,76},31,bf:LINE( 

24,51)-(274,66},21,bf :LINE(24,51 
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)-(274,66)  ,20,b-« 

LOCATE  8,5:PRINT"Player  #1:  ";:C 

OLOR  30, 21: LINE  INPUT" ", PLayS { 1 ) 

■i 

COLOR  2,23-4 

LINE ( 34 , 9  2 ) - ( 284 , 108 ) , 3 1 , bf : LINE 

(24,82)-(274,9a),23,bf :LINE(24,8 

2)-(274,9a),20,b* 

LOCATE  12,5:PRINT"Player  f2:  " ; : 

COLOR  30,23:LINE  INPUT" " , PLay? ( 2 

)* 

COLOR  20,0-« 

FOR  x=l  TO  2-* 

IF  LENCPLay$(x) )>8  THEN  PLay$(x) 

=MID5(PLay$(x)  ,l,S)-« 

Lp=LEN{PLay$(x) )* 

PLay5(x)='SPACE?(  (8-Lp)/2)  +  PLay 

NEXT* 

CLS* 

RETURN-* 

ChangePLay  :•< 

IF  PfLag=l  THEN  Switohl-* 

IF  PfLag=2  THEN  Switch2* 

■* 

Switch  2:   ■< 

PALETTE  22,0,0, .5 :PALETTE  24,1,0 

,0* 

COLOR  30, 24: LOCATE  5, 5: PRINT  PLa 

y5(l):C0L0R  20, 22: LOCATE  5, 26: PR 

INT  PLay$C2)-* 

COLOR  20,0:PfLag=l-« 

IF  GuessWrong=l  THEN  GOSUB  Score 

RETURN-* 

■* 

Switchl:  •* 

PALETTE  22, 0,0,1: PALETTE  24,. 3,0 

,0< 

COLOR  20, 24: LOCATE  5, 5: PRINT  PLa 

y$(l):COLOR  30, 22: LOCATE  5, 26: PR 

INT  PLay5 ( 2 )  * 

COLOR  20,0:PfLag=2'« 

IF  Gue3SWrong=l  THEN  GOSUB  Score 

■« 

RETURN-* 

■« 

Score  :■« 

IF  PfLag=l  THEN  GOSUB  PLayl  ELSE 

GOSUB  PLay2-* 

Score=0:GuessWrong=0    * 

RETURN-* 

* 

PLay  2:   •< 

IF  Mar)cer-Score=<23  THEN  ■* 

LINEC23,10)-(275,22),23,bf-* 

GOTO  EndGame-* 

END  IF-* 

Marker=Marker- Score: LINE (Marker, 

10)-(275,22)  ,23,bf-« 

RETURN-* 

-* 

PLayl:  ■* 

IF  MarXer-HScore=>  275  THEN  * 

LINE(23,  10)-(275,22)  ,21,bf-« 

GOTO  EndGame-* 

END  IF-* 

Marker=Marker-HScore  iLINE  C  23 ,  13)  - 

(Marker,  22),  21,  bf  ■* 

RETURN-* 

4 

EndGame:-* 

FOR  x=l  TO  15-* 

FOR  y-0  TO  1  STEP  .1-* 

PALETTE  0,y,y,y:FOR  z=l  TO  50;NE 

XT* 

NEXT-* 

NEXT-* 

PALETTE  0,0,  .3,  .3-* 

LINE (23, 10) -(275, 22) , 20, bf: COLOR 

30, 29: LOCATE  20, 9: PRINT  "   "  PLa 

y5(PfLag)  "  has  WONlli     "* 

200  LINE(24,51)-(274,65)  ,25,bf-* 


COLOR  20,25:LOCATE  8 , 7 : IHPUT"Ano 

ther  Game?  ",An$-* 

IF  UCASE?(An?)  =  "N"  THEN  300-* 

IF  UCASE5(An5)="Y"  THEN  GOSUB  CL 

earMouaeiGGTO  Header-* 

GOTO  200-* 

300  MENU  RESET-* 

WINDOW  CLOSE  2* 

SCREEN  CLOSE  2-* 

SCREEN  CLOSE  1-* 

WINDOW  CLOSE  1      -* 

END-S 

■« 

NewGatne :  -* 

GOSUB  CLearHouse* 

GOTO  Header-* 

•* 

Revivel ;* 

IF  (PfLag=2)  OR  (Rev(l)>2)  THEN 

RETURN-* 

IF  YLetter>65-«-(Rev(l)*l5)  AND  YL 

etter<75-i-(Rev(l)*15)  THEN  400-* 

RETURN-* 

400  LINE(33,65-^(Rev(l)*15)  )-(45, 

77-h(Rev(l)*15)  ),25,bf-* 

COLOR  20,0:Rev(l)=Rev(l)-l-l'* 

GOSUB  CLearMoQse* 

GOSUB  ReviveMe-s 

RETURN* 

* 

Revive2 :* 

IF  (PfLag=l)  OR  (Rev(2)>2)  THEN 

RETURN-* 

IF  YLetter>65-f(Rev(2)*15)  AND  YL 

etter<75-l-(Rev(2)*15)  THEN  500* 

RETURN* 

500  LINE(255,65+(Rev(2)*15))-(26 

7,77-f(Rev(2)*15))  ,25,bf* 

COLOR  20,0:Rev(2)=Rev(2)-H* 

GOSUB  CLearMouse* 

GOSUB  ReviveMe* 

RETURN* 

* 

ReviveMe :* 

RANDOMIZE  TIMER* 

FOR  x=0  TO  49:RevWord(x)=0:NEXT* 

GOSUB  ResetVaL:Score=0 :rw=l :pit= 

0* 

WINDOW  3,"", (0,0) -(311, 186) ,16,2 

:IF  PfLag=l  THEN  CoL=24  ELSE  CoL 

=  22* 

LINE (0,0)- (311, 186), 20,bf:LINE{l 

5,0)-(296,182) ,0,bf* 

LINS(46,21)-(286,32),31,bf:LINE( 

39,14)-(279,25),29,bf:LINE(3a,13 

)-(280,26) ,20,b* 

FOR  X=l  TO  5* 

550  rn=INT(RND*50)* 

FOR  y=l  TO  5iIF  rn=Used(y)  THEN 

550* 

NEXT  y* 

IF  RevWord(rn)=l  THEN  550* 

Used(x)=rn:RevWord(rn)=l :Rev5 (x) 

=Word$( rn)* 

NEXT  X* 

GOSUB  TimeBar* 

COLOR  20,0: LOCATE  13,4: PRINT  "TI 

ME": COLOR  30,0* 

LINE(a3,122)-(225,174) ,31,bf:LlN 

E(73,112)-(215,164) , 27 , bf : LINE (7 

2,111)-(216,165) ,20,b* 

LINE(240, 120)-{290,153),31,bf :LI 

NE(230,110)-(280,143) ,CoL,bf* 

LINE(229,110)-(281,144),20,biLIN 

E( 229, 120) -(281, 120) ,20* 

LOCATE  15, 30: COLOR  20, CoL: PRINT 

"POINTS" iCOLOR  30,0* 

GOTO  RevLOOp* 

* 

ResetVaL:* 

Ln=35:FOR  x=l  TO  12 : jm( x) =0 : Used 

(x)=0:Jum5(x)="":NEXT* 

JumbLe5=" " :Un jumS=" " :Ln=35* 

560  c¥=INKEY$* 


IF  c?<>""  THEN  560* 

IF  C?=CHRS(13)  THEN  560* 

RETUFIN* 

* 

TimeBar:   * 

LINE(40,40)-(50,92) , 31,bf :LINE(3 

5,35)-(45,90) ,CoL,bf* 

RETURN* 

* 

RevLoop:  * 

Lw=LEN(Rev?(rw)) :LOCATE  1,10:PRI 

NT  "Press  A  Key  To  Begin ." ;b?=IN 

KEY?       * 

IF  b5=""  THEN  RevLoop  ELSE  LINE( 

40 , 0) - ( 260, 10 ) , 0 , bf : LINE ( 70 , 48 ) - 

(260,100) ,0,bf* 

FOR  x=l  TO  Lw* 

570  rn=INT(RND*Lw-H) :IF  rn=0  THE 

N  570   * 

FOR  y=l  TO  Lw:IF  rn=jm(y)  THEN  5 

70  * 

NEXT  y 

* 

jm(x)=rn: Jum? (x)=MID$ (Rev5(rw) ,r 

n,l)* 

NEXT  x* 

FOR   x=l    TO   Lw:JunibLe$=JumbLe?-t-Ju 

m5(x)-H"    ":NEXT:Cent=INT(  (24-(Lw* 

2))/2)* 

COLOR  30,  29:  LOCATE  3  ,  9-l-Cent :  PRIN 

T  JumbLe$: COLOR  30,0* 

FOR  x=l  TO  LW:S=70* 

600  a$=INKEY?* 

IF  a5=CHR5(32)  THEN  * 

LOCATE  11,  13-t-x:  PRINT  a$* 

X=X-1:IF  x<l  THEN  x=l* 

LOCATE  11,13+x* 

PRINT  a$:a$="":G0TO  600* 

END  IF    * 

IF  a?=CHR$(13)  THEN  a5=""!G0T0  6 

00* 

LOCATE  11,  13-l-X:  PRINT  UCASE?(a?); 

:COLOR  25,0:PRINT  "_":COLOR  30,0 

* 

IF  a?=""  THEN  * 

LINE(35iINT(Ln/25)-H32)-(45,INT(L 

n/25)-^32)  ,0:Ln=Ln-H* 

LINE(46,INT(Ln/25)+37)-(50,INT(L 

n/25)-v37)  ,0* 

IF  Ln>1460  THEN  660  ELSE  600* 

END  IF* 

Rguess$(x)=a$:a?="" iNEXT       * 

FOR  x=  1  TO  Lw:Unjum5=Unjuin?-(-Rgu 

es3¥(x) jNEXT* 

IF  UCASE5(Unjum5)=Rev5(rw)  THEN 

650  ELSE  670* 

650  LOCATE  8, 11: PRINT"  That's  Co 

rrectl  " iFOR  x-1000  TO  2500  STEP 

100: SOUND  X, 1,150,1: NEXT :Sccre=S 

core-^20:UcoL=30:GOSUB  PrintIt:GO 

TO  680* 

660  LOCATE  8 , 11 : PRINT " Sorry ,  Out 

Of  Timer":SOUND  100,  5,  250, 1  :UcoL 

=20: GOSUB  PrintIt:GOTO  580* 

670  LOCATE  8, 11 : PRINT"That  Is  In 

correct." : SOUND  100, 5, 2  50, 1 :UcoL 

=20:GOSUB  PrintIt:G0TO  680   * 

680  LOCATE  17,31:COLOR  30, CoL: PR 

INT  Score* 

700  GOSUB  ResetVaL: COLOR  30,0: GO 

SUB  TimeBar  :rw=rw-l-l  I  IF  rw<=5  THE 

N  LINE(39,14)-(279,25) ,29,bf:G0T 

O  RevLoop* 

* 

EndLoop : * 

FOR  X=  1  TO  3000: NEXT* 

CLS: LOCATE  7, 3: PRINT  "Total  Numb 

er  of  Revival  Points" : LOCATE  9,1 

6: PRINT  Score* 

FOR  X=  1  TO  5000: NEXT   * 

WINDOW  CLOSE  3* 

WINDOW  OUTPUT  2* 

GOSUB  Score* 

GOSUB  ChangePLay* 
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RETURN-* 

* 

Printit:-* 

LItIE(39,14)-(279,25)  ,29,bf-« 

FOR  pit=0  TO  Lw-l-« 

COLOR  30, 29: LOCATE  3 , 9+Cent+( pit 

*2) :It$=MID¥(Rev5(rw) ,pit+l,  1)  il 

t$=It?  +  "  "•« 

PRINT  It$:NEXT  * 

FOR  j=l  TO  40001NEXT+ 

LOCATE  15+rw, 13:C0L0R  UcoL,27sPR 

IHT  Rev5(rw)< 


pit=0* 

RETURN-* 

4 

MenuSet:* 

MENU    1,0,1, 

'-* 

MENU    2,0,1, 

'* 

MENU    3,0,1, 

'■* 

MENU    4,0,1, 

'•t 

RETURN-* 

* 

CoLorData:-* 

DATA   0,0,0,1 

0 

0,  .3,0,0,0,0, 1,0, 

0,.3,1, .5,0, 

7 

0,1,-5, .2,0, .6, .6 

,.6* 

DATA    .  7  ,  .  1 ,  0 

1 

1,1,0, .1,0.02 

WordData :* 

DATA  "FORTHRIGHT" , "CONSULTANT" , " 
REMEMBER"  ,  "HIGHLIGHT"  ,  "AUDIBLE"-* 
DATA  " PERSONAL " , " ADVANCED " , " EXEC 
UTE"  ,  "VARIATION"  ,  "RESULTS"-* 
DATA  "FREQUENCY" , "EVALUATION" , "I 
NDICATE" , "DURATION" , "ARGUMENT"* 
DATA  "GENERATE", "PRECISE" ," INFOR 
MED"  ,  "SYSTEM"  ,  "ENCOUNTERED"-* 
DATA  "FOREIGN" , "CONSUMER" , "WASHT 
UB",  "SUMMER",  "FEATURE"-* 
DATA  "TELEPHONE" , "PROGRAM" , "MICR 
OWAVE"  ,  "TEMPERATURE"  ,  "CONCLUDE"-* 
DATA  "RECOMMEND" , "MOTIVATION" , "E 
CONOMICS"  ,  "CAPTAIN"  ,  "DOUBTLESS"-* 
DATA  "CONVENIENCE" , "MINIMIZE" , "T 
RANSHISSION", "MECHANICAL", "CONDI 
TION"-* 

DATA  "ELECTRICAL" , "CHEMICAL" , "EN 
GINEER", "EFFECTIVE", "HORIZONTAL" 

4 

DATA  " CONCRET  E " , " LANGU AG  E " , " F  UNC 
TION"  ,  "STARTLE"  ,  "KNOWLEDGE"-* 


Moving? 

For  address 
changes  or 
subscriptior^ 
information, 
call  toll  free 
1-800-727-6937 


Stringing  The 
Atari  Screen 


Rhett  Anderson 


If  you  envy  the  speed  with  which 
machine  language  programmers  can 
manipulafe  the  graphics  screen,  type 
in  this  program  to  see  just  how  fast 
BASIC  can  be. 


For  years,  Atari  BASIC  programmers 
have  been  using  strings  to  manipu- 
late player-missile  graphics,  Atari 
BASIC  strings  are  ideally  suited  for 
this  task.  While  most  BASICs  limit 
the  size  of  strings  to  255  characters. 
Atari  BASIC  allows  huge  strings.  In 
addition.  Atari  BASIC  makes  sub- 
string manipulation  very  easy. 

Even  if  you  are  familiar  with 
this  trick,  you  may  not  have  real- 
ized that  it  is  possible  to  treat  the 
entire  display  memory  (or  playfielci, 
as  Atari  calls  it)  as  a  string.  This 
technique  allows  you  to  do  some 
things  that  are  otherwise  very  slow 
in  Atari  BASIC.  Among  these  are 

•  Erasing  or  filling  the  screen  or  part 
of  the  screen  with  any  solid  color 
or  pattern. 

•  Duplicating  part  of  the  screen. 

•  Fast  swapping  of  full  or  partial 
screen  displays. 

Although  I  have  used  GRAPH- 
ICS 7  for  this  program,  these  tech- 
niques are  easily  applied  to  all  the 
graphics  modes — even  the  text 
modes. 

Typing  It  In 

The  program  found  at  the  end  of 
this  article  is  written  entirely  in 
BASIC.  This  program  assumes  that 
the  first  variable  used  will  be  placed 
in  the  first  slot  in  the  variable  name 


table.  To  insure  that  this  is  the  case, 
be  sure  to  type  NEW  before  enter- 
ing the  program.  Type  it  in  and  save 
it  to  tape  or  disk.  If  you  forget  to 
type  NEW,  or  if  the  program  does 
not  operate  properly,  save  the  pro- 
gram to  tape  or  disk  with  the  LIST 
command  (see  your  BASIC  manual 
for  an  example).  Then  type  NEW 
and  use  the  ENTER  command  to 
retrieve  the  program.  You  may  now 
save  the  program  again  with  the 
SAVE  command. 

The  program  is  broken  up  into 
several  sections.  You  can  use  any  of 
these  sections  in  your  own  pro- 
grams. Just  be  sure  that  lines  10-60 
are  at  the  beginning  of  your 
program. 

You  must  be  sure  to  dimension 
the  strings  you  use  to  the  proper 
size.  The  amount  of  memory  used 
by  the  screen  (and  therefore  by  the 
string)  depends  upon  the  screen 
mode.  The  size  of  the  screen  can  be 
found  with  this  formula; 

size  =  (number  of  bytes  needed  per  scan 
line)  *  (number  of  pixels  available 
vertically) 

The  following  table  shows  how 
many  bytes  are  needed  per  scan 
line  for  the  most  common  graphics 
modes: 


Modes 

Bytes  Per 

Scan  Line 

0,7,8,9,10,11,15 

40 

1,2,5,6 

20 

3,4 

10 

For  example,  a  GRAPHICS  0  screen 
would  require  40  *  24  bytes  of  stor- 
age, while  a  GRAPHICS  7  screen 

requires  40  *  80. 

As  written,  the  program  points 
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PRINTER  PACKAGE  SPECTACULAR 

AIJ,  PKINTKK  HA<'KA<;E':SIN('I,I.I)KS  -  \<IS1;K('IIAK(:KS  nN(l(KI)IT<-AKI).S- KkKi^:.SIIIPI'IN<:  [\  (-OMINKNTAI.t'SA 
AI'l'ROPRIA  rii  INlT-RnACH  DiiVlCli  FKOM  TIIK  HONKST  MAIl,  UKDKR  COMPANY 

Can  Ju/n£C  ^^Uciranici 


Panasonic 

PANASONIC  10801  PRINTER  PKG. 

WITH 
APPROPRIATE  INTERFACE  DEVICE 


law  F>C;?'AR»U.EL CABLE 

ATAFK  ST/PAR*  LLEl  CABLE... 


H75 

*17S 

AMCAjPAFUaEL  CABLE (|gg 

C-6i'l28ffleT6C  SUPER  GHAPHrC M09 

ATARlfrBrTSUPRAUM ___ Jigg 

APPLE  26PR0  ORAPPLER %H9 

NO  SURCHARGES  ON  CREDIT  CARDS 
FREE  SHIPPING  IN  CONTINENTAL  USA 


PANASONIC  10911  PRINTER  PKG 

WITH 

APPROPRIATE  INTERFACE  DEVICE 


VO^ 


>-^' 


NX-tO  PRINTER  PKG 
^fvt--  WITH 

APPROPRIATE  INTERFACE  DEVICE 


ice^ 


JBM  PCJPARALLELCABLE _,. „ Sai9 

ATAR]  STff'ARALLELCABLE 1209 

AMIGfcf  AFWLLEL  CABLE K2S 

cii'izaoserECSUPERGRAPHic tats 

ATARI  e-BlT(SUPBA  1 1 50 ,.  S23S 

APPLE2E.PR0GRAPPLER «99 

NO  SURCHARGES  ON  CREDIT  CARDS 
FREE  SHIPPING  IN  CONTINENTAL  USA 


PANASONIC  10921  PRINTER  PKG 

WITH 
APPROPRIATE  INTERFACE  DEVICE 

IBM  PC^ARALLEL  CABLE $329 

ATAB  ST/PARALLEL  CABLE _„..  %)» 

AMIOA/PARALLeL  CABLE ,„ ..  $330 

C-6*/1SaOlETECSUPERGRAPHlC. 1389 

ATARI  frBrrSUPRA  1 1 50 _.... $3U 


^ 


APPLE  2EPRO  GRAPPLER. t3W 

NO  SURCHARGES  ON  CREDIT  CARDS 
FREE  SHIPPING  IN  CONTINENTAL  USA 


V. 


laMPOPARAULELCABLE , {fw  5155 

ATARI  STjPARALLELCABLE .._ >«  (IBS 

AMIGA/PARALLELCABLE ..„ .'SMa.  (199 

C-«n2a»(ETEC3UPERGRAPHC , "S^Ki.  tr\3 

ATAHI8-B1T/SUPRAI1M jMa.  1209 

APPLE  2E/PHO  GRAPPLER .'Jsea.  i259 

HO  SURCHARGES  ON  CREDIT  CARDS 
FREE  SUPPING  IN  CONTINENTAL  USA 


NX-15  PRINTER  PKG 

WITH 

APPROPRIATE  INTERFACE  DEVICE 

ISM  PDPARALLELCABIE ., M49 

ATARI  ST.PARALLELCABtfi „...  S319 

amiga;parallelcabi£ _.. 

C-64I1 2B/X6Tec  SUPEBGRAPHIC _ _  M69 

ATARI  B-BITSUPRA  1 150 MTS 

APPLE  2E/PHOOHAPPLEn UOS 

NO  SURCHARGES  ON  CREDIT  CARDS 
FREE  SHIPPING  IN  CONTINENTAL  USA 


NB.24/10  PRINTER  (24  WIRE)  PKG 

WITH 
APPROPRIATE  INTERFACE  DEVICE 

IBM  P01>ARALLELCABLE .,.._ _.  tlS» 

ATARI  ST.PARALLELCABLE. „ WW 

AMIGfcPARALLELCABLE tMS 

C^fl2a/XETECSUP£RGHAPHIC S4M 

ATARI  ft-BT/SUPBA  V150 _ _ lug 

APPLE  2E^RO  GRAPPLER $$» 

NO  SURCHARGES  ON  CREDIT  CARDS 
FREE  SUPPING  IN  CONTINENTAL  USA 


64C  COMPUTER 
1541C  DISK  DRIVE 

18020  MONITOR 
15810  DISK  DRIVE 


C-123  COMPUTER 

1571  DISK  DRIVE 

1902  MONITOR 

C-128DCOMPUTER 


CALL  FOR  INDIVIDUAL 
&  SUPER  PACKAGE  PRICES 


1750  RAM  EXPANDER 

1764  RAM  EXPANDER 

1351  MOUSE 

AVATEX  1200  HC  MODEM 

AVATEX  2i00  HC  MODEM 

I  CONTROLLER 

CALL  FOR 

CURRENT  PRICES 


COMMODORE 
PC-10 

PC  COMPATIBLE 
COMPUTER 

CALL  FOR 
CURRENT  PRICF^ 


lAATARrl 


520  ST  &  1040  ST 

SYSTEM  PACKAGES 
CALL  FOR  LASTEST  PRICES 


CIBM 
*»^ ».» 

A.n  Gtsi*rf  1.^ J4.95 

An  C»ii^y2_, 1*.« 

BaFvta  of  Pomt SLflS 

BopNW'^rt* !*.« 

Cwtficato  Utk»t 35.05 

CT«mpiorirtp  SsMMfl ?19S 

Cnsmpiatahp  Gofl 2S.9S 

Cnmtmnxwtm  3000 ZS.OS 

Cnudii  Va*g>T  F.S Z6.« 

Cip  Art  1.3 iy.DS 

CS^  Art  Z 75.Bi 


C64 

Bvtfi  Te^v „._ 

B»rtfi  TM  i 

BaM  Cvn&i»*  U. 

CadPtkCA 

CwTTimn  U  SA 

CvitmM  UtMii 

Omri  Prt _^TIZ 

Chanmiito'    ?cn]_^__ 

CcPT  «  M._. . 

OmU  U«n^*f  L^ ^_ 

Dvbndcr  of  Bv  Cnmn 

DmH  Pm  L.—.^ .__ 

[>***PM7 

fti^CkM  Cajrwn 

FwiLiwr. 


. 25.95 

CorSel  h  Virtivn .„?505 

&uaKl*in  Europ«__ 25. BS 

DtdHA  M  n  DM*r K.OS 

D*%n4*'  erf  t>m  C^nm^ -?S,9S     f,f,ti  Cv^-Ogt. 

Dtrtoy*' ™, — _»,«    Fi^hn  S'rtiuiitcr  H 

FU  Sink*  Eagl9 _^„?t,95     F^  Uw»r  || „„_ 

FbgW  S-fnuliior  M  ._.._ M.W     Gkic^IC^, . 

Gl-Xl  Sf*n  Bridgt 36,95     C^o  &»L 

G-apha  Libf^ry  1  or  2.„^?LB5 
H  Kfihikvi  Gi«d»  Ed  !h* 
Giiur ^„„ 


„1fi.« 


Inhltr.lof^. __ ig.«     GMiU'iKWtOuL 

bqur  PotfoJ^iL.^^.^ 140.B5  Ojfl^^p ._ 

Jit ^.^^^^„ 33.05     Han]b«l  _ 

Krv  a«l  L  JL  »  lie 31.05     Ho..,«»d  ii^^—JZ 

2S.9S       ■"*"*""* 


O^  inCrH 

OibiWi' 

P»**\ . 

P-Ct  POiMfpACk _. 

Phvit&M-. 


-37.85 


-28-05 


L«g  K  ylArcmt  Is. , 

Mi<l  Oilv  Uai>»..— . 

Mind   kfinoF . 

Mm*  UriwT 


77.05 
OS 

PtJIw  OuHl  ,.^. CAU. 

PnnlmBitw™*^, 3fi.9S 

Pfinl  snap ,.^^, 37.*5 

PS.  Canpwuan,, . 31. OS 

RkIio  aaa^tmn_^ 25.9S 

Rc»di*»r  200G ..^_ 2S,fl5 

Swoo  CbM  ol  GaM__ lO.BS 

Sfwnjh* -_.^__».B5 

S-twnl  Swvcs .-....,  ,  . ,21.05 

SpuoB  0,«« — ..._.__,  Ji.BS 

Siwripgtrl . M.05 

Sub  Btti* M.D5 

Sdpw  Stif  HocUt .— K.«5 

Tftg  Tiiim  W«i«iA0. _r4.« 

Tonm  Frjma...  , 29.05 

Tm  on  Two  BMk»itH|l».__J5.B5 

Un^orw  II 47.95 

Wrtttxi  rw  lJLS.Aii 

Ctritivt  SindMQa__ 
WNpt«  >n  ITn  WorU  !• 

Cw'TtOri  Sandwga 

WtrW  Tou<  Grif 


— »M 
— ?S.K 
-_?4B5 
_J4« 

zg-BS 

M.BS 

^0.05 

™K.9S 
._».« 

.„3T.« 

„JJ.« 

U.g9 

—  u.« 
»as 

3«DS 

UBS 

._.ZBD5 

—  34.05 
Z/.BS 

JiBS 

-34.85 

34  BS 

37.« 

__1ft.l» 
— _H« 

74  BS 

23  95 

„.^.»« 

_^ia_9S 

.1005 

30  05 

3BBi 

2S.B5 

TIBS 


C12Q 

Auacid  QoM.. . ,_ CALL 

Bite  Ctyrfhlw  13B„^^. WW 

Bu'«i^cfic=^^.^^  ,_.  ,^ ??B5 

CbJPM  lJt_ ^*S 

Cl»rt  Pi«_.„.„__.^ ^.H« 

CoDd  12B 3»9S 

Di'jmn«gpfi2a. , 4J.9S 

Ftwt  Sy<*m  4 46.94 

Fonm«i1w  126 .__M.95 


Gtoilja. 

Mjcn  la . ^ 

Mvrli^    12a 

Mu'ibp'Kn  i;b 


^44,95 

-C9  95 

_27  9i 


Pme^t^p    WMt . CAU 

P«1ri*r    1?B , 42.94 

FVWet   Wn*r 49  94 

Pwtot  f i*r  2. 3*94 

P«*irt  Plirrrw  2.™,™™™M  « 

Pacl*!  Wfi»f  e__^„,,„_.M9S 
Sp**:!  T*m  i2*,_™__He5 

S.4»ft>*i«  t?8-,, _. 57,94 

Stor  C  CoTieJ**„ ,__».« 

SufHr  P»iJ/1W__„_S9e5 
Si4»f  PiKil  1?S^„,_^_»BS 

SwM«*Ccpi  •^».„^ *t,fl5 

Swtct-C    IM 4J.95 

Sy1*i»  Pbrfcr    IZB _42  B5 

T.irtly „2SBS 

V'liitir   I2i, ,54.B5 

ViMinTiH    1?B 54.05 


ATARt    B- 

fj*jfttOf<  Silica 

AWon  |L^.„.-- 

Arv-wf'ltt    Plul 

F-15  Set-  E»Si*— 

&»rTith*fg ^-™_ 

HifdHli 

LMdartMard 

LmPv  CocUvh. — 
UkJ  Omm  Uonitori 
liUgaftrl;  U_.__. 
U(Mii*U|fc*r, ^-.. 

P»e»  D«*4n*«  „ 

Pfirf  S^op. 

PS  Campwion. 

PS  h»HfcG»_^„ 
RKing  DHiructorL. 
ftjWwSiHTip^- — 

S"!***!  S*nr«*^. 

Synatc 


BIT 

-      »« 

--     iO« 

»« 

-™.  .    iflWS 
- 75  « 

— 7Z-B5 

_M« 

1A.95 
Z7.94 


APPLE 


Al'^•■'l n.BS     AbK 

Anmil. __ 44.B5      Ami 


ATARI  ST 


TcpCunr 


WoKiJpT'i'*'  i?a,. 


_<f.g5 


24.94 

„2Z05 

10,94 

1S04 

_„_10B5 
__77B5 

i»-B5 

26  « 

,__22.94 

.1B.95 

_^1Q.05 

..It  05 

_^2?05 

32.96 

____  32.96 

UBS 

71.94 

31.95 

-38  94 

77.95 

30.95 


B«iTh  Tii»^^,^_-, .. 

Bil'A  TM  II — 

B<V  N  ¥ltmtZM^^^^^. 

Cwificaa  U**#f_ 

Ctn^ictm  Mtkv  L>b  fi 

O'p  M  1  »  3 

Orp  *l  S 

D*»r9i*i 

F  iS  SfM  Efefrk* 

FiflTfl  NflNi 


OnaMrw- 
P*ii*i, 


Pni-^lB**  l,?  tr  3 . 

Print  &h»-___ .^ 

S>l>nt  S«rv<C« : 

Sttr^liMr .. ._. 

StTMt  Spqrtp  Bli*b*^..„. 
Sn*t  S{ion«  &i(^ib«JU. 

T»g  TM'n  W'*f(i'*j._^ 

Ww*.n  lh*US.A_>i 
FiTun  'ianrtijn 

Crurt  Siwuga 


..U.B4 
-20  05 

-ie.0s 

_31.H 
-22.B5 
-19.05 
-26.05 
-26.05 
-22.05 
-21.05 
-Tt.OS 
-2l.fl6 
_^9.05 
-ST.OS 
-37.95 
-&I.05 

-25« 
-24.fi6 

_31jG6 
-22.46 
^7996 
_74.B6 
-24.96 
-22.94 

-5»« 


.^CAUL 
-44*5 

_2t.95 


AMIGA 

A«gii  Arimitor 


AAt^»  2.0 

S«4»Tll«^_ 


-^  49.05 
_»i.fiS 


Btek^p, 

Baiincs  of  P(M4t 


a^ta/fittie'  2oOd_ 
CZ  [>Dd_. ^ 


.32.96 

.31.94 
.32.94 
.24.94 

Ok  E«ay  A^»i.r3ng „^— ,'^,fi4 

t>K  F^>TO'I ,^__3,7.95 

D«tj|fni-T»jir  Sl..^^^, 4a.aS 

DitAtfma ^.^^ „_  35-95 

DB  Un .96.05 

Dwp  SfMB 29.05 

DefeiVi*^  Of  IT*  Crown 32.95 

D«qt9  Bi|»_ 


CBU   Texioaft- 

C^aitipBoiBhp 

&11^0iO^th'p  G(3J1_ 

C^wtsRiitar  2000— 


0*Wnd«r  of  Sw  Cntmn. 3Z.0S 

Oqi  Vu. 12.05 


_M.05 


Os«Cin_. 


7^95 

. «SS 

EZ  tr*tb..—™.-,^_^™„„.  33.95 

Fliih_„_ ^^ -_77.es 

Flifltit  &myilnfH.^^^_^_„  33.94 

CFA  B«*c - 4a.94 

Cf  A  C*rnp*f j«  BS 

GFA  Drafl. „62  05 

Cf  A  Vpctnr —36  95 


Os>luH  PrLn!  U M.fiS 

0«uw  Pi'^r B4.0S 

DCuKfl  VOni  7.a H.OS 

Eto)  Wm«B'  BaKtMi! 32.95 

fwi  Tile  A«)»*rtajf# .3i.*S 

Pm  Sh«D»f —. 31.05 


Flight  Sirnoltxr  IL- 
Ftfl  Sde. 


_U.O 


31.05 


Grvid  Slk^  Ttfinii 31.95 

Grid  hj'u._-™-_...,..^„*4.« 


SINCE  1982 


..jo.es 


P>'IM 

_25.0S 

PViftt«»lfc«  Pui. 

.    21.05 

PrtnWiDp. 

-.ja.05 

—7295 

Sf>l 

22.86 

Skr'ai- 

_  10.05 

SlB'fii>i}«r. 

._2sas 

Sub  BaTh „„ 

_??.05 

ST.  Spcrb  B>i»ML.-. 

_75  05 

«B5 

Srf*  C  CO'i^e.t.' , 

.„.3gas 

Si««r  Phc4- 

_M,BS 

&^pw  P»H  Jrt* 

.„40.BS 

Sup*-  Staf  H«t.*f 

__22.B5 

Svrfcalc  SO»*ir»... 

— 25.05 

_27.05 

Uflirp«    1_ 

74.05 

Wv  h  &.  Paoh: 

3005 

Wof  d  ■  n  l»f /Sp»l  1 ....  „^ 

-37  OS 

ViMOiMLaadv 

^751» 

WirtJ  Tajr  Gtff „„ 

_7a« 

,ontpat^bLLLt^ 

P.0 .  BOX  1 7882,  M ILWAUKEE,  Wl  53217 

ORDER  LINES  OPEN 

Mon-Fri  9arTv9pm  CST  Sal  1 1am-5pm 

To  Order  Call  Toll  Free 

800-558-0003 

For  Technical  Info,  Order  Inquiries,  or  for  Wise.  Orders 

414-357-8181 

TELEX  NUMBER  9102406440 

(ANSERBACK.COMPUT  MILW  UQ) 


kUt»ciM^HlKlii[JfiTl|VFrH(:i<tf^l^liTa'ilJtn 


Wifa«'ontST 

HuBc  SLMia 

Piwn 

P,C,  Dna^ 


P«FK>rt»l;  PtMAl 49.94 

Pninasi*  l,2Dr3 2S,9S 

PM  IntBrfwM 1B95 

Pfiq;ni!or  PluB. 2*05 

Pubifir^  Pirtrwr 99,05 

RoWftf  200a 25.05 

Kjoatrt  Si*mp^ ^„^ Z4.05 

S  D.  L  __ .__  _  .  _,.„_  _, 3205 

Shingn*..^^. —  ^___,. Z5  05 

S-I»at  S»rv.c*^.^„.^_._2S.BS 


PhantiM ^^ 

Prinl  U.iate'  Plua_ 
Pubt>hw 

ScfLbUB 

SIl.1. 

Shvngha 

S<l«ni  S*nxa_ 


_2B.05 
_44.1H 


&jpvttm  F^tortd BaL95 

Tttt  Tprti« 25.95 

Tm  on  Two  B»k«iMl 2S'.e5 

VP  PrD*Wi.i)nil i«0.« 

Wnisr  GiflWl— JS.« 
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the  variable  A$  to  the  screen  area. 
You  may  change  the  name  of  the 
variable  in  your  own  programs,  but 
it  must  be  the  first  variable  used  in 
the  program. 

Once  the  string  is  reassigned  to 
the  screen,  any  operations  you  per- 
form on  the  string  will  show  up  on 
the  screen. 

Addressing  the  screen  as  a 
string  may  seem  awkward  at  first, 
but  it  is  incredibly  fast.  Once  you 
understand  it,  you'll  be  able  to 
write  programs  that  do  screen  ma- 
nipulations with  machine  language 
speed.  In  the  case  of  the  GRAPH- 
ICS 7  screen,  a  byte  represents  four 
pixels.  This  makes  color  selection 
rather  odd.  Instead  of  using  the 
COLOR  statement  to  select  colors 
0-3,  the  values  0,  85,  170,  and  255 
represent  the  four  different  colors. 

Although  the  memory  repre- 
sentation makes  working  with  solid 
colors  rather  arcane,  it  makes  work- 
ing with  patterns  a  breeze  (for  an 
example,  see  the  Atari  version  of 
Laser  Chess™  in  the  July  1987  issue 
of  COMPUTE!).  In  some  graphics 
modes  such  as  mode  15  (available 
only  on  XLs  and  XEs),  the  two  col- 


rr  r^Airr  r/^r^y  r/^A'AT^rr^^ 


/F/^-JTA'r 


A  NEW  FORM  OF  WRITE  PROTECTION 

fJ^iOT  sillies  into  the  disk  at  the  top  eofnor 
diroctly  above  ths  wrlte-protsct  notch  ond  alba 
down  to  cover  tha  notch  from  Uia  Insida, 

Kfl-AST  slldas  out  >jsl  as  aosBy  to  alio"  Iha 
disk  toibe  written  to. 

r/^jO"/"  li  good  for  the  life  of  ><Dur  diak. 

r/^AZ'r  la  light  In  color  allowing  It  to  be 
vtowed  when   the  dllJi   Is  Initollod  In    the   drive 
Just  by  glancing  at  the  drive  door. 

WJ^Jir}'  sella  for  $1.39  per  pkg  of  ton  (10). 
Please  Include  $.50  for  shipping  and  handling. 
Sorry,  no  C.O,D.  or  credit  card  orders. 


R 


ORDER   TODAY! 

WRITE  PROTECT 


NEAR  FUTURE  COMPUTER 
P,0.    Box  1726 
Walla  Walla,   Wa  99362 
(509)   525-3288 


ors  blend  well  enough  to  appear  to 
be  a  new  color.  A  patterned  screen 
fill  is  done  in  the  demo  program  in 
lines  320-360.  Use  this  table  to  re- 
place the  numbers  in  lines  320  and 
340  for  other  color  combinations. 


Colors 

Values 

0  andl 

17,    68 

0  and  2 

34,  136 

OandS 

51,  204 

1  and  2 

102,  153 

1  and  3 

119,  221 

2  and  3 

187,  238 

For  instance,  if  you  want  to  use 
colors  2  and  3  in  the  demo,  replace 
the  102  in  line  320  with  187  and 
replace  the  153  in  line  340  with 
238. 

For  instructions  on  entering  this 
program,  please  refer  to  "COM- 
PUTEI's  Guide  to  Typing  In  Pro- 
grams" elsewhere  in  this  issue. 

Stringing  The  Atari  Screen 

NQ  1  REM  CQPYRIQHT  1987   COM 

PUTE]   PUBLICATIONS,   INC 

ALL  RIGHTS  RESERVED. 

U  2  PRINT  ■' {CLEAR}  ":  PDSITID 

N  12,8!PRINT  "Copyright 

19B7" iPOSITIDN  7,1B:PR 

INT  "COMPUTE!  Publicati 

one ,   Inc." 

BK  3  POSITION  10,12:PRINT 

11  Rights  R»»wrved" 
PK  4  FDR  I-l  TO  1500:NEXT 
JD10  BRAPHICS  7:CLR  :DIM 

(4B«80>  ,CDL  <4)  , B« (40«S 
0) ,TEnP» (40»a0) I A« (40* 
80) -CHR« (0) 
KL  20  VTAB  =  PEEK  (  134) +PEEK(  13 

S) tl^b 
M 30  ATAB-PEEKC140)+PEEK(14 

1 ) »256 
1(140  0FF3-PEeKt88)+PEEK(a9) 

«256-ATAB 
CO  50  HI-INT  (OFFS/236)  :LD-QF 

FS-HIt256 
)H  60  POKE  VTAB  +  2,  LO:PDKE  VT 

AB+3,HI  

JE  70  REM   t  t».-T.T.I>»ati)Ki):»  jn 

lai** 

NJ  75  PRINT  "SOLID  COLOR  FIL 

L":Q0SUB  1000 
PBa0  FOR  T-0  TO  4:  READ  CDLs 

COL  CT)-CDL 
BIC9a  A«  (  1  ,  1  )-CHR»(COL) 
BL  100  A*  (2)-A« 
Wt  10S  BOSUB  1000 
CF  1  10  NEXT  T 

FD  120  DATA  0,85,170,233,0 
PS  200  REM  XXmA*n^-J:Mk 


"A 

I 
A« 


■let 

"PARTIAL 
■:FQR  T-0 


ft  310  PRINT  "PATTERNED  SCRE 
EN  FILL" 


HE  210  PRINT  "PARTIAL  SCREEN 
FILL":FQR  T-0  TD  3iW 
HERE-400IT-i-l  :  REM  USE 
400  BECAUSE  10  LINES 
OF  40  BYTES  EACH 

HO  220  A«  (WHERE,  WHERE) -CHR*( 
CDL(T) ) 

BK  230  A«<WHERE+l,WHERE  +  399) 
-A» (WHERE, WHERE+39B) : 
REM  DO  10  LINES 

NL  233  BOSUB  1000 

CJ  240  NEXT  T 

t 


IK  313 
PL  320 
KO  330 

CI  340 

M  350 


KL  370 
HH  400 

in  410 

N.  41S 

n  420 

IK  430 

CP  440 
M  4S0 

no  S&0 


C£S70 
W  SS0 
PJ  600 

It610 

M  620 
CE630 

JG  640 


»6S0 
EC  660 
K670 

Ct  6B0 
W690 
FJ  700 

II  710 


EB  720 


IE  800 
AC  810 
eg  820 

BJ  830 

LE  B40 


M  830 
DD  833 

m  860 

GS  870 

FA  B80 
EG  890 
LE  900 
CN  910 
IN  920 
DB  930 
BH  940 
LB  930 


HJ  960 
(B  100 


KD  10  1 


BOSUB  1000 
A«(l, 1)-CHR«(102} 
A«(2,40)-A«:REM  40  BE 
CAUSE  USINB  8R.  7 
A*(41,41)-CHR« (133) :R 
EM  NEXT  LINE  DOWN 
A*C42,a0)-A*(41> 
A«(B1)-A«|REM  DUPLICA 
TE  FIRST  2  LINES  DOWN 

ENTIRE    SCREEN 
BE]SUB    1000 
REM    %%WBESM3:^SSSSI31. 


PRINT  "DUPLICATE  PART 

OF  SCREEN" 
BOSUB  1000 

FDR  X-0  TO  lS9lC0L0R 
X/54 

PLOT  X.SiDRAWTB  X/2,7 
9 

NEXT  X 

FDR  I-l  TO  3 
A*  (1*800-1-1,  I«B00-)-B00) 
-AtlREM  800  FOR  20  LI 
NES 

NEXT  I 
BOSUB  1000 

REM  ttmrnss^msssMMim^^ 

PRINT  "SCREEN  FLIPPIN 

B" 

B«-A« 

FOR  Y-1  TD  30tCDLDR  R 

ND<0>«3+1 

PLOT  RND(0) *1S9,RND(0 

)t79:DRAWTD  RND(0)tlS 

9,RND(0} »79 

NEXT  Y 

FOR  K-1  TO  30 

TEMP*-A»f  A»-B»: B»-TEM 

P« 

NEXT  K 

OOaUB  1000 

REM     tf  J:Ufc»if:lMMrtMJaT 

PRINT  "PARTIAL  SCREEN 
SWAPPING"!?  "   (TOP  W 
ITH  BOTTOM" 
FDR  K-1  TO  30:B»-A«(1 
,40*40) : A* ( 1,40 t40) =A 
«(40t40+l)  :  A*  (40»40-f  1 
)-B»jNEXT  K 
REM  «f:1?b«r:V*<ii;B»t 
PRINT  "ANIMATION" 
A* ( 1 ,  1  >-CHR« (0)  : A« (2) 
•A« 

FOR  T-0  TO  3 
COLOR  1 : FDR  Y=l  TO  10 
iCDLOR  Y:PLDT  T+4,Y+T 
*20sDRAWTO  T+30+4,Y+T 
«20:NEXT  Y 
NEXT  T 
BDSUB  1000 
B«-A« 

A«(l, 1) -CHR«<0) t A* (2) 
-A* 

X-10! Y-10!DX-1 lDY=l 
X-X+DXl Y-Y+DY 
IF  X-100  THEN  DX--1 
IF  X-5  THEN  DX-1 
IF  Y-60  THEN  DY"-1 
IF  Y-6  THEN  DY=1 
H»INT(X/4)  :  L»=X-H«4 
A» tH+40«Y+l,H+40«Y+4B 
0)"B«(Lt800-i-l,Lt800-i-4 
80) 
BOTD  B90 

0  FDR  DELAY-1  TD  100:N 
EXT  DELAY 

0  RETURN  (S 


SOFTWARE  DISCOUNTERS 

v/r     /A  iVI  L  IV  I  V. /^  •  Frpp  chinnine  on  orders 


S.D.  of  A. 


For  Orders  Only- 1-800-225-7638 
PA  Orders- 1-800-223-7784 
Customer  Service  412-361-5291 


•  Free  shipping  on  orders 
over  $100  in  continental  USA 

•  No  Surcharge  for  VISA/MasterCard 

•  Your  card  is  not  charged  until  we  ship 


IBM  SOFTWARE 


ACCESS 

10th  Frame  Bowling  .  .  -$29 

ACCOIADI 

Ace  of  Acei $24 

MtJnIgColf S30 

Mean  IB  famous 

CouneOisk  "2 $14 

Mean  18  Famous  Course 

Dislis']«4 S2) 

ACTIVISION 

Hacliei S9.BS 

Hacker  2 524 

Portal   $27 

Shanghai $23 

Tass  Times $23 

ARTWOBK 

Bridge  :.a $19 

Strip  Poker $25 

Data  Disk  ^1  Female      $14 

Data  Disk '2  Male $14 

Data  Disk  ^3  Female  ,  .$14 
LinkMord  languages: 

Dutch J19 

frenth J19 

German S19 

Jt^iian $19 

Ruuian $19 

Spanish $19 

AVALON  Hill 

Dr.  Ruth's  Game $19 

Super  Bowl  Sunday  --.$31 
S.S.S.  Champs  Disk  ..S14 
S.B.S.'SS  Team  Disk  .  .$14 
S.B.S.'S6  Team  Disk  ..$14 
BROPCI18UNP 
Ancient  Art  oj  War-  -  $27 
Ancient  Art  of 

War  at  Sea   $27 

Bank  St.  Writer  Plus ...  $49 
Business  Week's 

Business  Advantage  .  S32 
Carmen  Sandiego 

USA J39 

World $25 

Kirateka $11 

Memorv  ^t^K $44 

Print  Shop $lt 

P.5.  Companion $32 

P.S.  Graphics  Library 

Holiday  {dition   ....$31 
PS.  Graphics 

Library  *1  or '2.  ,*31  Ea. 

PS.  Paper  Refill $14 

Search  A  Destroy  .  .  . .  $9.BS 

Toyshop  $32 

Toy  Shop  Relill $19 

Type! ,   $30 

CENTRAL  POINT 

Copy  2 ,.,J23 

PC  Option  Board $79 

PC  Tools J23 

DAC 

Easy  Accounlinit  3.0    .   $44 

Easy  Payroll  2.0   $33 

DATA  EAST 

Comnundo        $24 

Tag  Tea  m  Wrestling  ...  $24 
DAVIDSON 

Algehlasler    iT/a 

Grammar  Gremlirts     ..$30 
Homeworker.  $54 

Math  Blaster $30 

Spell  It  $30 

Word  Attack  $30 


EEECTBONIC  ARTS 
Software  Classic  Series: 

Archon    $9.Ba 

Mind  Mirror $9.Sa 

Music  Const.  Set     .  .  .S9.B8 

One-onOne $9.S8 

Pinball  Const.  Set  ...$9.Sa 
Seven  Cities  Cold  ..$9.aa 
Super  Boulder  Dash  .$9.68 
EltCTRONIC  ARTS 

Arctic  Foi $23 

Chessmasler  2000 $26 

Chuck  Veagcr's  Advanced 

Flight  Simulator  $16 

Empire Call 

Grand  Slam  Bridge.  $)9 
Ma  ible  Madness  $23 

Scrabble $26 

Starfleell  or  2  .      .$31Ea. 

Starf light    $32 

World  Tour  Coif  tJ2 

ENUCHTENMENT 
Guide  to  Cfiess  Openings  $39 
Paul  Whitehead 

Teaches  Chest  $39 

tm 

Create  A  Calendar  $19 

Destroyer  S24 

Pitstop2 $9.BS 

P.S-  Graphics  Scrapbook; 


'1  Sporli 

$16 

'2  0<f  the  Wall 

$16 

'3  School 

$16 

Sub  Battle  Simulator 

$24 

Summer  Games! 

$24 

World  Games 

$24 

GAMESTAR 

Champ.  Baseball 

$24 

Champ.  Basketball 

$14 

Champ.  Coif 

$14 

GFlCh.Eoolball 

$24 

HAYDIN 

Sargon3  Chess     ,  . 

$14 

HITECH  EXPRESSIONS 

Award  Ware 

$9.(» 

Card  Ware 

$6.se 

Parly  Ware 

$9.sa 

INFOCOM 

Bureaucracy  

$34 

HitchhUiett  Guide 

$19 

Hollywood  Hijini .  . 

$24 

leather  Goddesses 

$24 

Stationlall 

$24 

The  Lurking  Etorror 

$24 

Zuik  1 

$24 

Zork  Trilogy 

$44 

INTRACORP 

Business  Card  Maker 

$39 

MECA 

Andrew  Tobias:  Managing 
VourMoney  2.D        $129 
MICROPROSE 

F-1S  Strike  Eagle $21 

Cunship $32 

Silent  Service S21 

MINDSCAPE 

Balance  of  Power  $30 

Bop&Wreslle $19 

Crofsword  Magic  .  $30 

Delcnder  of  the  Crown  $24 
Infiltrator  .  $19 

Perfect  Score  SAT  $44 

Super  Star  Ice  Hockey    $24 


MONOGRAM 

DolUrt  &  Sente $109 

SHARE  DATA 

leopardy  $8.88 

Wheel  ol  Fortune  ..    $8.88 

SIERRA 

Black  Cauldron $24 

king's  Quett 

1,2.  or  3 $30  Ea. 

Leisure  Suit  Larry $24 

Space  Quest $30 

SIMON  a,  SHUSTER 

Chemlab $3*4 

Promethean  Prophecy  $24 
Real  Estate  Investment  & 

Management  $65 

Typing  Tutor  4 $30 

Webslers: 

Spelling  Checker       $39 

Thesaurus $44 

SPECTRUM  HOEDBrlE 

Falcon  F-16  Sim   $32 

SPINNAKER 

T-shirt  Shop $32 

T-shirt  All '1    $14 

SPRINGBOARD 

Certificate  Maker $36 

CM.  library  '1 $21 

Early  Games $21 

Newsroom  Pro $89 

N.R.CIipArt-l  or3$19Ea. 

N.R.CIipArl-2     $24 

P.S.  Graphics  Eipander  S24 
SSI 

Battle  olAnlietam $30 

Gettysburg $36 

Kampfgruppe $36 

Phanlasie   $24 

Rings  of  Ziltin $24 

Roadwar20tXI $24 

Shard  of  Spring    $24 

Wizard's  Crown S24 

SUBIOCIC 

Jel     $32 

TEIARIUM 

Anufon $9.88 

Dragonworld S9.S8 

Fahrenheit  451 $9.S8 

Nine  Princes $9.88 

Perry  Mason   $9.88 

Rendezvous $9.88 

THUNDEB  MOUNTAIN 

Top  Gun $6.88 

TIMEWORKS 

'Dala  Manager $39 

Evelyn  Wood  Reader    .$39 

Partner $39 

*  Swif Icalc  w/Sideways  .  $39 
Sylvia  Porter's  Financial 

Planner $59 

■Word  Writer  $39 

'All  3  in  1  Power  Pack  $79 
UNISON  WORLD 

Fonts  A  Borders $23 

Newsmasfer     $59 

Printmasler  Plus $36 

Art  Gallery  1  or  2      $19  Ea. 
WEEKLY  REAPER 
SlickybearMath  $23 

Slickybear  Numbers  $23 
Slickybear  Reading  $23 
StickybearSpellgrabber  $13 
Slickybear  Typing  $23 


ACCESS 

Famouse  Course  Disk 

•1  lorWCLB $14 

Triple  Pack:  BH1.  BH2, 

Raid  Over  Moscow   .$14 
World  Class 

Leader  Board $25 

ACCOLADE 

Hardball  - $19 

Hardball  GS $29 

Killed  Until  Dead $19 

MeanlBCoKGS $29 

ACTIVISION 

$23 

$47 


Aliens 

DrawCS 

Gamemaker  Library  Disks: 

Sci-Fi  or  Sports     .$16Ea. 

Gamemaker $30 

Ghostbusters $9.86 

Hacker  2 $24 

Hackeries $29 

Mights  Magic  $30 

Music  Studio  GS.    ---    $47 
PaintwDila  Clip  Art  C5     $T9 

PaintworksCS $47 

Portal   $17 

Shanghai ,,.....  $31 

Shanghai  05 »29 

Tass  Times  CS $24 

Writer's  Choice  Elite  CS  .  $47 
ARTWORK 

Bridge  5.0 $19 

IntematirMial  Hodiey  - .  .$19 

Strip  Poker $19 

Data  Disk  1  (Female) ...  $14 

Data  Disk '2  (Male! $14 

BAUDVILLi 

Award  Maker  Pbs $24 

French  Paper  Pack         $9.88 

VideoVegas-- $19 

BRODEtiBUNO 

Antmate128K $42 

Sand  St  Writer 

PlustlSX $47 

Carmen  San  Diego 

USA $27 

World $24 

Choplif  ler $9J8 

Dazzle  Draw  128K $34 

Fanta  vision $30 

Karalcka $21 

Loderunner $21 

OnBaUncelJSK $59 

Print  Shop  Enhanced   ...$29 
Print  Shop  Companion  .  .  $23 

Print  Shop  CS $39 

P.S.  Graphics  Library 

1,  2or3 $14  Ea. 

P.S.  Graphi(3  librarY 

Sampler  Edition  GS   ..$13 

Science  Tool  Kit *39 

Toyshop -.$32 

Type! .....«7 

Wings  ol  Fury  ,  , $23 

CENTRAL  POINT 

Copy! $21 

DAVIDSON 

Algeblaster $27 

Grammar  Gremlins $27 


APPLE  II  SERIES 

.Math  Blister $37 

Spell  It $27 

WordAttacli $27 

DAC 

Easy  Accounting $44 

DATA  EAST 

ComiTundo $21 

Tag  Team  Wrestling $21 

ELECTRONIC  ARTS 

Age  of  Adventure  ....  $9.88 

Archon  1or2 $9.88  Ea. 

ArcHcFoi-.  ., $26 

Bard's  Tale  GS $32 

Bard's  Tale  2 $32 

Chessmaster  2O00 $29 

Dekjie  Paint  II  GS $65 


D.  Paint  Arl  1  CS . 
D.  Paint  Art  '1  CS 
Earth  Orijit  Station 

Instant  Music  CS  ... 
Lords  of  Cruiquest  . . 

Marble  Madness  128K 

Moebiu* 

Movie  Maker 

Music  Const  Set   ...  . 


$19 

$19 
.S23 
$65 

$9.88 
.  $23 
.$36 

$9ja 

$9.88 


Music  Const.  Set  CS  ..      $32 

On(4nOne $9.88 

Pegasus $23 

Pinball  Const  Set $9J» 

Russia  [The  Great  War) .    $26 

Saabhle SJ6 

Seven  Cities  of  Cold       $9.86 

Skyfoi $9.86 

Star  Fleet  1 $32 

Super  Boulder  Dash       $9Ji6 

Ultima4 $36 

EPVX 

Champ.  Wrestling $14 

Create  A  Calendar  $19 

Destroyer $14 

Movie  Monster $14 

P.S.  Graphics  Scrapbook: 

1  Sports $14 

«2  0(ftheWall  $14 

-3SchDOI $14 

Sub  Battle  Simulator   ...  $24 

Sub  Battle  Sim.  GS $24 

Summer  Games  2 $24 

Temple  A pshai  Trilogy  .  .$14 

Winter  Games $24 

World  Cams $24 

FIREBIRD 

Elite   $21 

Guild  ol  Thieves $24 

Slarglider $27 

GAMESTAR 

Champ.  Baseball  128K  ..$24 

Ch.  Basketball  128K $24 

Champ.  Football  128K  ..$24 
Top  Fuel  Eliminator  128K  $19 
HI-TtCH  EXPRESSIONS 

AwardWare  $9ja 

CitdWare $6ja 

Heart  Ware  '     $«.e8 

Party  Ware  $9JS 

INFOCOM 

Bureaucracy  126K $34 

Hitchhiker's  Guide    $19 

Hollrwood  Hijim $34 


leather  Goddesses $24 

Stationfall $24 

The  luriiing  Honor $24 

Zork  Trilogy $44 

MECA 

Andrew  Tobias:  Managing 

VourMoney  2.0 $95 

MlCROLIACUt 

Baseball $24 

Bo<  Score  Stats $14 

General  MgrJOwner S19 

19B6TeamDisli $12 

MICROPROSE 

F-1S  Strike  Eagle $21 

SilenlSetvic* »21 

Silent  Service  CS   »2S 

MlNDSCAPt 

Bop&  Wrestle $19 

Defender  ol  the 

CrerwnCS    $31 

Inlilliator $19 

Perfecl  Score  SAT $44 

MONOGRAM 
Dollars  A  Sense  128K  ..$«9 
PtRSONAL  CHOICE 
Term  Paper  Writer  1 2SK  .  $32 
SHARE  DATA 

Family  Feud $8.88 

Jeopardy   $8.88 

Wheel  of  Fortune  .  .  $8.88 
SPRINGBOARD 

Certificate  Maker $29 

CM.  Library  VoLI $21 

Newsroom $32 

N.R.CIipArl'l  or '3  .  .$17 

N.R.CIipArt'2   $23 

STYLEWARE 
Multiscribel.D126K  ..$44 

Mulliscribel.OGS $65 

SSI 

Batllecruiser S35 

Eternal  Dagger S24 

Gettysburg $35 

Phantasie  1,  3  or  3  .$24Ea. 
Realms  ol  Darkness  .  .   $24 

Rings  of  Ziliin $24 

RoadwarlOOO $24 

Shard  of  Spring $24 

War  in  S.Pacific $35 

Wizard's  Crown $24 

SUaiQGlC 

Flight  Simrjlatar2 $32 

f.S,  Scenery  Plski Call 

Jcl   $26 

WEEKLY  READER 

Stickrbear  ABC's $23 

Slidiybear  Math  1  or  2  $J3  Ea. 
Stickybear  Numbers   ..$23 

Stickybear  Printer $23 

Slickybear  Shapes  .  .$13 
Stickybear  Spellgrahber  $23 
Slickybear  Typing  $23 

WINDHAM  CUSSICS 
Alice  in  Wonderland  .  $9.88 

Below  the  Root S9.88 

Swiss  Family  Robinson  $9.88 

Treasure  Island $9.88 

Wizard  of  Oz $9.88 


Commodore  64  &  128  Owners:  Please  read  our 
full  page  ad  in  this  month's  Compute's  Gazette! 


P.O.  BOX  111327- DEPT.  CP-BLAWNOX,  PA  15238 


'Plvas«  R»d  The  FollowinR  Qj'dermR  Teimi  &  Condition*  Caretuily  Btfort  Placinjt  Youf  Ordtr:  Ordtrj  with  cjishiefs  check  or  monev  order  shipped  immedMlely  on  in  ilock  (lemi. 
Perjonjl  &  Company  checki,  illow  3  vt*tV\  cliririncc  No  COD.'*!  ShippinK:  Conlinenlal  U.S.A.  — Otdeti  under  SIM  ^cFd  $3;  free  sKippinR  on  orderi  over  $100.  Ah,  HI,  fPO, 
APO  — jddjSon  J II  Older*.  CjnjtcJA  &  Puerto  Rico-^dd  $10  on  ^U  ojderj.  Sorry,  no  other  International  orders  accepled!  PA  reiidenlj  add  6%  ules  \k\  on  ihe  total  amount  of  order 
including  jhippinachirgM!  REASONS  fOR  CALLING  CUSTOMER  SERVICE -41 2.Wt-S291  (1)  Slalui  of  order  or  back  order  (2]  If  any  merthandiw  purchaied  wilKin  M  dayi  Irom  S.D. 
of  A.  isdefeclive,  pl*a*e  call  (or  a  relurn  Julhoriration  number.  Defective  merchandiie  will  be  repUced  with  the  same  merchandise  only.  Other  relurnjjubjecl  Id  a  15%  teitocking 
charge.  Alter  60  days  pleaie  r*ter  lo  the  manulaclureri  warranty  inctuded  with  (he  merchandise  &  lelurn  direcHy  to  the  manufacturer.  Customer  service  will  not  accept  collect  calls  or 
calls  on  S.D.  OF  A.'s  800' order  lin*-*!  Hive  you  jeen  our  on  line  calaloR  of  1000  joftware  tilles  fof  Commodore.  AUri.  AppleJBM  and  Amiga?  It's  on  CompuKive's  Eleclronic  Mall  — 
josl  type  CO  SDA  and  shopping  lor  software  will  never  be  (he  same  again!  HOURS:  Mon.-Fri.  9AM-5:30  PM.  Sa(.  10AM-«PM  Eailern  Time.  Because  this  ad  hid  lo  be  written  2-3  moj. 
before  it  was  published,  prices  &  availability  are  Jubjett  to  change!  When  sending  a  mail  order,  please  specify  make  A  model'  of  your  compulei! 


CAPUTE! 


Laser  Chess™  Mixup 

Last  month's  "CAPUTE!"  column 
mistakenly  stated  that  the  Atari 
version  of  Laser  Chess  on  the  April- 
June  COMPUTE!  Disk  could  not  be 
run  from  the  disk  menu.  Actually, 
Laser  Chess  runs  just  fine  when 
selected  from  the  menu  of  the  Atari 
disk.  It  is  the  Commodore  64  ver- 
sion of  Laser  Chess  on  the  May-July 
Commodore  edition  of  the  COM- 
PUTE! Disk  that  will  not  run  proper- 
ly when  loaded  from  the  menu.  We 
regret  any  confusion  this  may  have 
created. 

The  problem  with  the  Commo- 
dore 64  version  does  not  occur  until 
a  playing  piece  is  destroyed  by  a 
laser  blast.  If  the  game  is  loaded 
from  the  COMPUTE!  Disk  menu,  it 
will  lock  up  at  the  end  of  the  explo- 
sion animation  sequence.  This 
problem  does  not  occur  if  the  pro- 
gram is  loaded  directly.  To  run  the 
Commodore  64  version  of  Laser 
Chess    from    the    COMPUTE!    Disk 


without  using  the  menu,  simply  use 
the  command  LOAD  "LASER- 
CHESS.IUN",8  and  type  RUN. 

Smart  Alec 

Line  1419  in  Program  1  from  this 
article  for  the  Commodore  64  in  the 
September  issue  (p.  81)  contains  a 
spurious  question  mark  and  is  miss- 
ing the  final  digit.  The  line  should 
read  as  follows: 

1419:F6  A9  00  99  A7  02  AA  A5  01 

IBM  Monte  Carlo 
Entiancements 

The  IBM  version  (Program  5,  p.  35) 
of  this  card-game  program  from  the 
September  issue  works  properly  as 
printed,  but  reader  Robert  St.  John 
was  disappointed  at  the  lack  of 
color  and  the  fact  that  the  program 
recognizes  only  lowercase  letters. 
Other  readers  with  color  monitors 
may  want  to  try  his  suggested 
changes  and  additions  to  enhance 
game  play: 


««   110    KEY   OFF:  WIDTH   40:  COLOR    1, 

2,2 
EP   140   DIM   C»C52),CDL(52),V$(13> 

,T*<4),CL(4) 
!F   170   READ    A:  T«  ( I )    =   CHB«(ft):RE 

fiD   CL<I)!NEXT 
}\   200    DATA    3,4,4,4,3,0,6,0 
PK   230    COLOR    CL<J):PRINT"  "; 

V«(I)sT»<J); 
«  230    COLOR    1 
HP  300    IF   C«(P)=""    THEN   C«<P>=V* 

(J!+T»tI);CCIL(P)"CL<I>>Qa 

TO  330 
SO  342  LOCATE  17, 5:  PRINT  SPACE*  C 

2B) 
n   372  PRINT: PRINT  TAB ( 1 1 ) "Press 

Q  to  quit" 
Ml  3B0  A««INKEY*:IF  A«=" "  THEN  3 

B0 
OP  3BZ  IF  A»""h"  OR  A»="H"  THEN 

C-4!(30TO  420 
IP  384  IF  A«="m"  OR  A*-="I1"  THEN 

C»3:e0T0  420 
KF  3B6  IF  A»-'>"  OR  A»«="E"  THEN 

C-6!Q0T0  420 
K   3B8  IF  ft«="q"  OR  A«="n"  THEN 

CLSiEND 
III  390  BDTO  3B0 
OE  430  COLOR  COL  (CT)  :  PRINT  " 

"iC»(CT)  ; 
10  570    C»(I)=C»(H-1)  !C0L(I)=COL( 

1+1) 
FB  630   C«(I)=C»U-i-l)  :C0L(I)=COL( 

I+l) 
OL   770    IF    A«="q"    DR    A«="Q"    THEN 

RUN  ^ 


y^  THE  -g  SHOW 

Commodore 


Saturday  &  Sunday 

October  3  &  4, 1987 

10  a.m.-6p.m. 

THE  DISNEYLAND  HOTEL 
ANAHEIM,  CALIFORNIA 


') 


\  EXHIBITS,  EVENTS 
AND  DOOR  PRIZES 

I NATIONALL  Y  KNOWN 
COMMODORE 
SPEAKERS 

I  SHOW  SPECIALS 
AND  DISCOUNTS 

ISEE  THE  LATEST 
INNOVATIONS  IN 
HARDWARE  AND 
SOFTWARE 
TECHNOLOGY 


The  Commodore  Show 
Is  the  only  West  Coast 
exhibition  and  confer- 
ence focusing  exclu- 
sively on  the  AMIGA, 
Commodore  128  and 
64,  and  PC  10  market- 
place. Enjoy  the  Magi- 
cal Kingdom  of  Disney 
along  with  thousands 
of  Commodore  Users. 

COMMODORE  SHOW 

ADMISSION  «10 

DISCOUHT  ON  DISNEYLAND  TICKETS 
AVAIUBLE 


For  More  Information  or  to  Reserve  Exhibit  Space,  Contact 

a^RK  PRODUCTIONS 
[l  P.O.  BOX  18906,  SAN  JOSE,  CA  95158 
'^    (408)  97a-7927-800-722-7927'IN  CA  800-262-7927 


Copies  of  articles  from  tliis 
publication  are  now  available  from 
the  UMI  Article  Clearinghouse. 

For  more  information  about  the 
Clearinghouse,  please  fill  out  and  mail  back 
the  coupon  below. 

Lrearmghouse 


Yes!  I  would  lilie  to  know  more  about  UMI  Article  Clearinghouse. 

I  am  interested  in  eieetronic  ordering  through  the  following  system(s); 

n  DIALOC/Dialorder  D  ITT  Dialcom 

D  OnTyme  D  OCLC  ILL  Subsystem 

D  Other  (please  specify!- 


D I  am  interested  in  sending  my  order  by  mail. 
D  Please  send  me  your  current  catalog  and  user  instructions  for  the 
systemfs)  I  checked  above. 

Name , 

Title 

Institution/Company 

Department 

Address 

City 


-State- 


-Zip- 


Phone  ( ) 

Mail  to;  University  Microfilms  International 

300  North  Zeeb  Road,  Box  91    Ann  Arbor,  Ml  48106 


$569 


The 


one  STop  shop 

ORDERS  ONLY 

CALL  TOLL  FREE 

1-800-CALLTRU 


1200  BAUD  MODEM  KIT 

Access  Bulletin  Boards 
&  luf  onnatlon  Services 


All  Just 

*119 


•  Avatex  1200  HG 


•  ST  or  PC  Software 

•  CompuServe  Starter  Kit 

•  RS-232  Cable  MF 

•  Phone  Cord 


Super  Special  Seagate 
PC-XT  HARD  DRIVE  KIT 

20  MEG 

Complete  with: 
Western  Digital  Controller 
and  Mounting  Hardware 


ZVi  Continuous  Label  Kit 

•  500  3V2"  Disk  Labels$A95 

•  FREE  Label  Progrom     W« 

•  Automatically  Reads 
Disk  and  Makes  Labels 

•  Create  Database 


(1-800-225-5878) 

ORDER  STATUS,  INFORMATION,  R  A  s 
CALL  1-313-595-0788 


includes 
MS-DOS! 

BLC  PC512/1 100%  IBM  PC- 
XT  compatibility  and  512  K 
RAM.  Includes  5'A"  360  KB 
floppy  disk  drive,  low  profile 
keyboard,  tiigti  resolution 
output  (720x350  pixels), 
Centronics  parallel  and  RS232 
printer  porfs,  six  expansion 
slots.  Includes  abbreviated 
MS-DOS. 


WITH  BUILT  IN  DRIVE 
With  1  MEG  Upgrade 
(Already  Installed} 
Add  $99. 


ATARI  ST 
SOFTWARE 

ArcScFlK  

ChKsmastBf  2000 

,  3095 

C/yaalCasUM   

1995 

Dae  Easy  Aooouitng 

DaBWsnagerST 

<6.95 
.    52.95 

DBMaaef  Ore 

Degas  EiOe 

39.95 
53  95 

Donald  Di«*"s  PteremaxJ 

1995 
53  9S 

Fnawocfl 

nfji  SmMa  a 

GFABasjc  

.3495 
5295 

GFA  Baac  CortiataT 

H^nakr _ 

SZ.95 

Kiigs  Ouea  1,  ri  ot  III 

rAjih  Wttams  C. 

.  32.95 

Music  StuOo 

Phartasioll 

Pmftliislii  P»B 

PsorOwss 

PuekshJigParew 

SDI  , 

39.95 
2695 
2695 
3996 
99  95 
3295 

SiylcB 

3195 

Panasonic  Dot  Matrix  Printer 
KXP-1080i  «179.00 
KXP-1091i  *199.00 

•  Print  speed  (cps) 
KXP-10801  Draft  120 

•  Print  speed  (cps) 
KXP-10911  Draft  160 


Call  for 

pricing  on 
other  models, 

BONUS!  FREE  STARTER  KIT 

•  fi^onitor  Riser  ^j^«i 

•  3'/;"  Latiel  Kit  KhiI  1 

•  Dust  Cover 

•  3'/;"  Disk  Head  Cleaner 


FREE 
STARTER  KIT 

•  568,00  value 

•  IBM-ST  cable 

•  200  pack  paper 

•  Hea\7  duty  metal 
printer  startd 

•  Vinyl  dust  cover 


BULKSVaDISKS 


VALUE 


SSDD 

OTY 
25 


DSDD 

OTY 

25 


Space  Quea . 

Switfc^c  ST           ,  „   . 

-..32  9S 
52  95 

Tty<e  Bardte     ._.__ 

-26  95 

VIP  PtDfesson?!    

16695 

WofdWntefST    

wqs 

ST  HARDWARE 

Man  IftmST    

...   Call 

Alan  314  Dnvo     

199  GO 

Alan  354  Ddva 

105  00 

Alan  5ClJ5i  CcHx  MocTOf  .  .. 

2991)0 

A:anSH2W  Hart  Dnv« 

539.00 

Alan  SM124  More  Monto  ... 

11S0O 

Swa  20  Meg  himi  Oivo 

54900 

Ucgrads.  EZ.Ram 

1S900 

Z-T«IB  low 

^-TrTW  MO 

PRINTERS 

OtanalH  20  w  Phig-N-Pnrt 

198.00 

Panasonc  KX-PIOSO    

179  00 

PanasofucKXPloeii 

19900 

Panasa*:  KXPloaa 

309.00 

Panasonic  KX-PI592    

399  00 

Panasonic  10<-P1S96 

435  00 

PanascnicKXP3l5l 

25900 

Panasonc  KX-P3131 

409  00 

DUST  COVERS 

1040  ST 

9.9S 

Gen*.  10 

696 

EM  FC  Keytoard 6.96 

BMPCSyaem 23  95 

Panasonic  10eQ%91 .     B.95 

SF  3il4 ,„ .„..,.,..,. 5.95 

SF  354 _._,.„____. 5  95 

SM  lffl4 ..,  1195 

SM  124         11.9S 

CABLES,  INTERFACES 


AB  Swrtcn  Son  Paiailel 
AB  Swldl  Bon  RS232 
AB-X  Crassovp  BoJ(  P» 
CM  ST  Pnfltef  C^k  \a 
BWST  Pwiter  &*te  s     . 

\%i7astuflef         

RS-232  FP  6     

P&^23Z  MF  10' 

RS-232  MPS 

RS-S3S  MM  ff     . 
STDnve  CaUeS 


399S 
39.96 
49.95 
9.95 

.  695 
5996 
995 
1295 

...9  95 
.995 
1496 


ACCESSORIES 

14"Twta-N-Tffl 14.95 

5.25"  r>s*(  Nolcftef 7,95 

Amarsy  Pnoter  StflTKl iflSb 

Mcxise  House ...„.„.„. a  95 

Mouse  Wal      ,.„ ^ 795 

Pinter  SlarxJ  2-Pc. . _ 129$ 

5a  Outlet  Sur9e  Sb^  ia95 

Dbk  File  40  '  3  5'  6  99 

Ctek  Ftie  60-  5^5'      £99 


LjCirarYCase-3(525"'l  

LJyary  Casc-5  (3  5' 1 

Pa(*el  Pat*  (3.51  

DISKETTES 

a*  3  5'  ssoo 

Bl*3.5-DSOD 

a*  525- DSDD 

MaxQl  3  5- SSIX)  

Ma«sl  3  6'  DSDD     

Maiel  5^5- SSDD 

Majel  525- DSDD 

Maael  526"  DSHD 

Sony  3  5  SSDD 

Sorry  3  5"  DSDD 
Sony  S25  SSOO 
SOnySaS  DSDO 
Sony  5  25' DSHD        

RIBBONS 

Epson  FXM)tPK«) 

EM  Prapnrtffl 

Panasonic  loeoso  


14.99 


-29 


K..95 
2'.95 
.  10.95 
.1-95 
2:1.95 
1'-.95 

(1.K 

995 
2r.95 


£..99 

-  S--96 

Ei.99 


XMM  801  LagaiaSMC 
SMM@(M 


;,99 


THOMSON  MONrrORS 

^leOCGACotor  3X00 

■tSOA  Monoctvnme  -  132  CLM. .  15E.D0 
43S0  EGA  Did  Scan _„_.  46&.00 


4375M  UtBia  Scan _.,.  _ 6290) 

TTL  Upomor   _...  11900 

CONTROLLERS 

Alan  Economy _ 4  95 

EmiSOOXJ 14.95 

Re^jlacemort  Mouso  (ST) 49.95 

Tae2 695 

TAC-ID  IBM  *  APPLE  2795 

Vtai3-Way  2395 

WcbBoss        12.95 

IBM  HARDWARE 

PC-KT 

1200  Baud  WefTiaf  Modem 11900 

CGV  Card  59.95 

OS DDl SHI  36011  Dnw     ,     .,     »95 
lOPkjsllCanl  .     7595 

Monograptics  Card       75  95 

Pnmt-r  Card  29  95 

FlS-Z!2Cart         3S95 

IBM  SOFTWARE 

AiTttoo  1C.95 

BaiancG  01  Poiwef 33.95 

F-15Slnkc  Eagle 23.95 

FWil  SniAlo 33.95 

Kr^'s  auD9  I,  II  01  111 - 33  95 

IJJIU!  1-2-3       -.,  - 333  95 

MakVllllstBC 333  95 

WObJ  Psrtsa 330.95 

laOOOf . 396.95 


No  surcharge  for  MasterCard 


or  Visa  ^£ 


All  ordfir3  are  conslderod  verbal  contracls  and  edh«r»  to  all  laws  as  set  by  !he  Federal  Trade  Commission.  All  order  cancalladons  will  be  charged  5  %.  OrdarlrtQ  Irtrdr-mBtlpn;  Credit  Curd  - 
Have  number,  explralion  dale,  shipping  address  flfiti  DAY  phone  nunnber  ready  with  ordej.  Ptraonal  and  company  ch«ck«;  Call  order  in  ■^  you  wIlJ  receive  an  order  number.  Send  order 
number  and  check  lo  the  P.O.  Box  Msled.  Allow  14  Business  Days  lor  check  lo  dear.  Money  Ordora:  Call  order  In  -  you  will  receive  an  order  number.  Send  number  virith  money  aider  to 
P.O.Box  listed.  Shipping:  Conlinantal  USA-  All  Ordmrm  add  3%,  minimum  J3. 00.  HI,  AK,  Canada  add  5%,  minimum  S5.00.  All  other  onier  amas  add  15%.  minimum  X1t).00.  No  C.O.D.'s  over 
S100.00,  add  an  addilional  J3.00  shipping  charge  tor  C.O.D.  Ail  areas  nol  serviced  by  U.P.5.  will  be  shipped  first  class  insured  mall.  All  shipptnfl  charges  In  excess  o1  the  above  items  will  be 
added.  All  orders  are  shipped  on  a  lirsl  come  first  sarvad  basis  ancT  are  gsually  shipped  immediately.  Please  allow  2-3  weeks  deliirefy  time.  All  goods  are  new  and  include  factory  wan-anty. 
All  d*f*ctl¥ee  muat  have  a  return  authorization  numl^r.  Please  csil  (31 3)  595-078S  to  obtain  an  R.A.)f  or  return  wilt  not  be  accepted.  Prices  and  a'>a  liability  subject  to  change  wjlhout  notice. 
Alt  corTBspondence  should  be  senl  to  P.O.  Box  75  -Wayne.  Ml  46164.  "SATISFACTION  REFUND  -  IS  LESS  SHIPPING  &  HANDLING  -  Call  lor  Delails. 

Not  responsible  toi  typograptipcal  errors 


Fast  and 
Facilitating. 


DISKETTE  DUPLICATION 

All  formats.  Quality  tested.  From  25 
to  1000  duplicated  in  24  hours— 25,000 
per  week. 

COPY  PROTECTION 
NoClone  copy  protection.  Each  appli- 
cation uniquely  encripted. 

DOCUMENTATION  PRODUCTION 
Complete  coordination  service.  Text 
printing.  Custom  sleeves,  labels  and 
tabs. 

PACKAGING  ASSEMBLY 

Full  turnkey  service.  All  types  of 
binders.  Shrink  wrapping  and  ship- 
ping cartons. 

DELIVERY  FULFILLMENT 
Computerized  inventory.  Pick  and 
ship  to  your  customer  list.  National 
delivery  service. 


DISKETTE  DUPLICATION  AND  PRODUCTION 

1050  North  Fifth  Street,  San  Jose,  California  951 12 
(408)947-1161      OUTSIDECA:  1-800-826-4296 


PRINTER     MANIA!!!! 


AMIGA  500  CALL 
AMIGA  2000  CALL 


PANASONIC 


10801 

10911 

10921 

1592 

1595 

3131 

3151 


$155.00 

$175.00 
CALL 
CALL 

$419.00 
CALL 

$399.00 


SOFTWARE 


Lotus 
Word  Perfect 
DBase  III 
PFS   File 
PFS  Write 
First  Choice 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL  FOR  OTHER 

SOFTWARE 
AND  HARDWARE 


EPSON 


LX800 

FX86E 

FX286E 

EX800 

LQ800 

LQ1000 

LQ2500 


$179.00 
CALL 
CALL 

$375.00 
CALL 
CALL 

$865.00 


HARD  DRIVES  SEAGATE 
CALL 


WE  WILL  MEET  OR 

BEAT  ANY  ADVERTISED 

PRINTER  PRICE 


MISCELLANEOUS 
384K  MEM  $  75.00 

MULTIFUNC         

XT  2MB  BO 
EGA  CARDS 


MODEMS 
MONITORS 


150.00 

195.00 

CALL 

CALL 

CALL 


EXCELLENT  PRICES  ON  300, 

1200B  MODEMS  AND  COLOR 

MONITORS 


3.5/5.25  Incompatibility??? 

NOW  SOLVED! II 

With  our  MW-777  Switch 


MICRO  WORLD  ELECTRONIX,  INC. 

3333  S.  WADSWORTH  BLVD  LAKEWOOD.  CO  80227 

SALES  1-800-288-8088  CUST.  SVC.  (303)  968-5907 

Manufacturer's  warranty  honored.  Prices  subject  to  ctiange. 


A  Complete  Pro  Football 

Prediction  Program  For  The 

1987  NFL  SEASON 


Accurate  vs  'Line'  in  1986 


More  In 
'87  To  . 


•   • 


FEATURES 


Predicted  Scores  Each  Week 

Season  Schedule  By  Week 

Season  Schedule  By  Team 

Scores  By  Week 

Scores  By  Team 

Win  Loss  Record  Home/Away 

Division  Standings 

Stats  —  Accumulated  &  Average 

Line  By  Week 

Line  By  Team 

Record  vs  Line 

Record  vs  Common  Opponents 

Individual  Team  IVIatch-Ups 

Printed  Copy  All  Screens 

1983-1986  Data  Base 

(Includes  Ail  of  the  Above) 

Easy  Updates  Piayoffs/1988 

Not  Copy  Protected 

Dealer  Inquiries  Invited 


BEAT  THE  SPREAD 

74 


•   • 


O  C     INCLUDES  DISK  AND 
5"    DOCUMENTATION 

SPECIFY  5'/.  OR  3'/;  D!SK 

IBM,  Tandy  &  Compatibles 
Commodore  64  —  128 
Apple  11+  —  lie  —  lie  —  llgs 
TRS80  Mill  /IV 


Stats  Needed  To  Run  Program  Available  In 
Local  Newspapers  Or  We  Will  Furnish  All  Stats 
By  1st  Class  Mail.  Season  Price  40°°. 

Our  Bulletin  Board  Will  Furnish  All  Stats,  Lines, 
Predictions  and  Trends  Updated  Daily.  Season 
Price  55°°.  Program  Comes  Updated  Thru  Current 
Week  of  Season  ...  No  Extra  Charge. 


ORDERS  SHIPPED  IN. 2  DAYS 

PHONE  LiNES  OPEN  24  KRS. 

ADD  3™  SHIPPING  &  HANDLING 


TOLL  FREE  - 
TEXAS  COLL. 


800-722-2277 
-  214-586-8212 


Marathon  Software  Dept.  C 

P,  0.  BOX  1349  —  641  FORT  WORTH  ST. 
JACKSONVILLE.  TEXAS  75766 

TOLL  rR£E  t  COLLECT  EOS  ORDERS  ONLY 


<wt-^ri- 


Lyli 


lis  Nassau  St.Bet.  Bcekman  &  Ann  Sts 


NY.,NY.100M  (212)732-4500    Open  Mon-Frl,  8:30-6:30 
/Sat.  9:30-6/  Sun,  9:30-5:30 


/Sat.  9:30-6/  Sun,  9:30-5:30 

PHONE  and  MAIL  ORDERS    1  (Qf 
CALL  TOLL  FREE  J.\U\ 


an  ti  Ann  Sts  Penn.  Station,  An  track  Level 

en  Mon-Frl    8-30-6-30  Beneath  Madison  Sq.  Garden.  «Y.,Ny.  (212l594-71« 

HO-sW  °P^"  Mon-Wcd,  8:30-8/ThursS    Fri,6:30-9/Sjt  &  Sun,  10-7 

1(800)345-7058  '^  "'^zte-Jsoo'i^ 


ALL  COMPUTERS  &  PERIPHERALS  COME  COMPLETE  WITH 
AC  ADAPTOR,  OWNER  S  MANUAL  AND  ALL  CONNECTING 
CABLES. 


OPEN  SEVEN 
DAYS  A  WEEK 
FOIt  ORDERS 


ALL  MERCHANDISE  IS  BRAjND  NEW  AND  FACTORY  FRESH, 
COMPLETE  WITH  MFR.U.S  A.  WARRANTY.        . 


EPSON  EQUITY 

IBM  PC/XT 
COMPATIBLE 
COMPUTER 
PKGS. 


EQUITY  1+ 
PACKAGE 

-  UdK   RAM     3fOK    Floppy 
*  Dh*r*     SiritiyPirtl^t  p»n» 

-  Ciatt   CrifAdir     KtTboiitf 
«  US*'  Moailar 

$79r 


EQUITY  II 
PACKAGE 

EqiJI]  II  Campilii     MOK 
SAM  Powi/     3teiK  Drill 
13"  Hifh  B«.  M«iiiiD^ 
S«rid/P>r«ld  I^Dilt 


$899 


95 


tt^UllY  H  PKC    w/S  3fOK 

OmVE   Ii   1  20Ma  HARD 
DRIVE    $i  199 


COMPUTER 
PACKAGES 


IBM  XT  HARD 
DRIVE  PACKAGE 

■IBM  XT  Cimpntar  'IBM 
Kijboird  -JSiK  RAM 
Eipindibli  to  «0K  -JillK 
Diik   Drivi>:aMB  Hlld  Drill' 
Monitor  OpIionoJ  *  Picfctgi  ot 
10   Diiktltti 

$1499" 


IBM 

PERSONAL  SYSTEM  II 

PACKAGE 

MODEL  30 
■IBM  Compotil  ■T»»  TIOK 
Drivii  ■  ttOK   RAM  -  Buill-ii 
Crvphic*  '  Sariil   Ind    Pililld 

Pom 

$1379" 

tBM  PERSONAL  SYSTEM    ll 
MODEL   iO      $2749 


#PP«<i 


COMPUTER  PACKAGES 

FOR 

APPLE  lie 

APPLE  HE 

APPLE  f^AC  PLUS 

APPLE  lies 


Appli  lie,  HE,  lies,  01  MAC^I-  Kifbeird 

5.25"  Diik  Orivi  ■  12"IMoiiilor  •Pickigt 
of  10    Diikiltit   ■     AC  Adaplort     ■      At 
Hool-up  Clt'lll 


APPLE  lie 
PACKAGE 

$699 


APPLE  HE 

PACKAGE 

$899 


APPLE  IIGS  MACPLU5 
PACKAGE   PACKAGE 


$1195 


$1649 


IVACEWfllTER  iUPfftNTER       $4t9 


•RINTERS 


EPSON   FX-S6  (309.95 

EPSON   FX-29eE  U39  9S 

EPSON  LQ-800  t449.55 

EPSON  L0-10D«  tStO.95 

EPSON   EX-IOOO  l4l).tB 

.J    PANASANIC  IQBO  I  »159.95 

%   PANASONIC  1091  I  1189.95 

PANASONIC  1092  t2IB.95 


HP   LASERJET 
SERIES  II 
STAR  SG-IOC 
STAR  NX-IO 
STAR  NX-IOC 
STAR  NL-10 
STAR  NX-IS 


(1695.95 

tl79,!)5 

1 179.95 

tl99.9S 

(239.95 

(309.95 


STAR  ND-15 
STAR  NR-15 
STAR  NB24-10 
STAR  NB2t-15 
STAR  NB-15 
OKIOATA  120 
OKIMATE  M 


(399.95 
(479.95 
(419.95 
(C29.95 

(n».95 

(199.95 
(139.95 


NEC   MUITISPEED  11325 

TOSHIBA  3100  12*50 

ZENITH   111  tlt39 

ZENITH  113  (2149 


LAPTOPS 


20MB  SEACATE     »„*,, 
30MB  liV  STOCK     ■   '"' 


^^^m^^' 


SPECIAL 


«  BLUE  CHIP 

IBM  PC/XT 
COMPATIBLE  PCKG. 


•  Blut  Chip 
Kiyboaid  •  5I2K 
Expandabit  to 
640K  •( 
Eipantion  Sloli- 
Optional  20MB 
Hard  Drivi  ■  All 
Hook-up  Cablti 
k  Adaptora  ■ 
Packaga  of  ID 
Diakaitit 
■  12"  r^onitor 


95 


$529 


commodore 


f  5  commodore 

PClO-1   PACKAGE 
IBM  PC/XT  Compatible 

■  PCiO-1 
Computer  •  512K 
Ejtpandabia  to 
e40K  ■  360K  Diik 
Dfivc  '  Enhancad 
K(|bo>rd-5ettal  k 
Parallel  Pom 
■  12"   Monitor 
■All  Hook-iip  Cablet 
k  Adaptori  ■  10 
Diikittai 

PClO-2  6*0K  Computer  CCQ9 


w/2  360K  Floppy  Drives 


mUGA 

AMIGA  1000 
512K  SYSTEM 


512K  Computer 
with  Built-in 
Disk  Drive  and 
1030  Color  Monitor 
95 


$949 


NEW  AMIGA  500  NOW  IN  STOCK 

ALL  AMIGA  PERIPHetiALS 
t  MEMORY  EXPANSION    IN  STQCKI 
AMIGA  2000. CALL 


Ktjboard   ■  MOK 
IBM     PC/XT       RAM    ■  Tarboipied 

COMPATIBLE  S^VkTv'..  • 'mI 

PACKAGE        °°^  '  Mono/Craphici 
Card  •    HighRiiolation 
35    rvlono    rvfonitor  •  FREE 
Word      Proctlling 
Software 


$699^ 


COMPUTER  PACKAGES 

Gef  it  all  together  &  save! 


COMMODORE  64-C 
PERSONAL  COMPUTER 

COMMODORE  128 
PERSONAL  COMPUTER 

COMMODORE  MPS -1200 
Computer  Printer 

COMMODORE  MPS-803C 
Computer  Printer 

COMMODORE  MFS-1000 
Computer  Printer 
COMMODORE  128  D 
w/Buitt-in  Disk  Drive 


144'' 

219" 
229" 
129" 
199" 

449" 


Qs  ©^       PACKAGE 


-Commodore  64  Compultr 
*Commador«   1B41    Disk   Drtvt 
.  CommaijiQr*   Color    Prinlar 


$379 


95 


C=^  PACKAGE 


•  Commodore  64C  Computer 
■Commodore  lS41C'0iik  Onve 
■Commodort  Color   Prmtir 
-Color   Monitor 

With  Geos  Piotrtm' 


$529 


95 


r-  iOO-  COfUIPLETE 
^.-  Vam.    PACKAGE 

'Commodora   I^A  CompuUf 
■Commodoifi   IS4]   Dixie  Duvt 
■13*     Monitoi 
•CO'rnmodoiie  Color   Printtf 


$479 


95 


To  subs(ftute  1571 
far   1S4I  add    $65 


^-  1X0-  PACKAGE 


•Commodori    I3S   Computtr 
■  Commodore    15TJ    Duk    Drivt 
•Commodore   ]902   Color 

^^omlor 
-Commodore   BQ  Column 

Printer 


$759 


,95 


cohnmodore 


149" 

214" 
229" 
169" 

49" 

99" 
169" 
119" 
Call 


COMMODORE  ISilC  NEW 
Disk  Driva 

COMMODORE  1571 
Computer  Disk  Drive 

COMMODORE  1902  SO 
Column  RGB  Color  Monitor 

COMMODORE  1802  Color 
Computer  Monitor 
COMMODORE  'MAGIC 
VOICE-  Module 

COMMODORE  1700  -  12SK 
Exptitsion  Module 
COMMODORE  1750 
Expansion  Module 

COMMODORE  1670 
Aitemitdar 

COMMODORE  176* 
Exptashm  Mtdtle 


5J2K 


WE  INVITE  CORPORATE 
&  EDUCATIONAL  CUSTOMERS 


rti.    tiiiUicitS,    V.i«,    Am-Ci,    n>n«i'i    Club.    Cn 
iddlionil    iurch]>|4    for    crcdfl    c»td    ard«ii        Uan    tinititi    chirk%    r 
chickt.      NY     iiiidints    add    ipp\>t»hl*    siUl   (Jii       PrKrl   and    avJili 


Didar.  Flot  »*tpaniibl«  foi  lifpo|r]phif  »iraii  Httvin  tt  dtfrcii 
rtlU'nf  will  net  bi  arccpteif  IRM  TC/X  F  irr  rrcittrrrrf  MtAtn. 
ihipp»d  Ail  eJT""(*'l  '♦'   "('tl.ll 


1541/1571  Drive  Alignment 

1S41V1S71  Drive  Alignment  reports  the  alignment  condition  of 
the  disk  drive  as  you  perform  adjustments.  On  screen  lielp  is 
available  while  the  program  is  running.  Includes  features  for  speed 
adjustment  and  stop  adjustment.  Complete  instruction  manual  on 
aligning  both  1541  and  1571  drives.  Even  includes  instructions  on 
how  to  load  alignment  program  when  nothing  else  will  load!  Works 
on  the  C64.  SX64,  0128  in  64  or  128  mode.  1541. 1571  in  either  1541 
or  1571  mode!  Autoboots  to  all  modes.  Second  disk  drive  fully 
supported.  Program  disk,  calibration  disk  and  instruction  manual 
only  $34.95! 

Super  Disk  Utilities 

Super  Disk  Utilltlei  is  the  ultimate  utilities  disk  for  the  1571  disk 
drive  and  C126  computer,  An  80  column  monitor  is  required.  SDU 
will  copy  whole  disks  (with  1  or  2 drives),  perform  many  CP/M  and 
MS-DOS  utility  functions,  edit  any  track  or  sector,  trace  files,  copy 
files,  rename  a  disk,  rename  a  file,  change  disk  format  (without 
affecting  data),  scratch  or  unscratch  files,  lock  or  unlock  files, 
erase  a  track  or  a  whole  disk,  create  auto-boot, 
assemble/disassemble  drive  RAfifl  or  ROfnl,  analyze  disk  format, 
format  in  MFIVI,  CPM*.  1541,  or  1571  format,  reads  CPM^ 
directories,  contains  a  1571  drive  momtor.fullysupports  a  second 
1571  drive,  performs  direct  DOS  commands  and  much,  much 
more!  Options  window  displays  all  choices  available  at  any  given 
time.  Many  utilities  also  work  on  the  1541  drive.  No  need  for 
numerous  utility  disks!  SDU  does  it  all'  Only  S39.95! 

Frse  (hipping  a  handling!  No  surcharge  for  credit  card  orders! 
Immediate  shipping!  Illinois  residents  add  6%  sales  tax.  Order 
from: 


Free  Spirit  Software,  Inc. 

538  S.  Edgewood 

La  Grange,  IL  60525 

(312)  352-7323 


THE  AMAZING 

VOICE  MASTED 


SPEECH 

DIGITIZER. 

VOICE 

RECOGNITION 

AND  MORE... 


There  is  nothing  else  like 
it.  Voice  fvlaster  gives 
both  speech  output 
and  voice  recognition  wttti  ttiis  single  tvordware  product!  Your  voice 
controls  programs,  or  fiome  applionces.  robots,  ond  more  with  spoken 
commands.  Verbal  response  txick  gives  status,  vertfies.  or  requests  your 
reply!  Speech  output  and  recognition  patterns  ore  recorded  Into 
menxjiy  v/ith  your  voice.  Progromming  is  simpte  vflth  new  commarids 
odded  to  BASIC  Demo  pfograms  got  you  up  and  running  quickty.  A 
music  bonus  program  lets  you  write  and  compose  musical  scores  merely 
by  humming  a  tune.  Unlimited  applications  for  fun,  education,  or 
commercial  use.  Design  your  own  programs  for  profit.  Speech  and 
recognltton  quality  the  finest  available.  Only  Co^^x  provides  this  high- 
tech  n>or«l  for  unlimited  applications  at  a  very  affordable  price. 

The  Covox  Voice  IVk3ster  comes  complete  with  all  hardware  and  softwore 
for  onfy  S89.95.  30  day  sotisfacfion  guarantee.  One  year  warranty,  (Add 
S4  shipping  ond  hondlirvg (Of  USA,  S6 Co nodaSIOovetseos.)  Available  for 
Commodore  64/128,  Apple  II.  1I+,  lie.  II©.  Atari  800,  BOOXU  130  XE  (IBM  PC 
and  compatibles  version  crvaitable  soon).  Specify  when  ordedng.  Visa. 
MasterCard  phone  orders  accepted. 

Call  Of  MT/te  today  for  RfEE 
Covox  product  catalog  and  newstotler 


cxn/ox  INC 


675-D  Conoer  Street  •  Eugene.  Oregon  97402  •  USA 
AfeaCode(503)342-1271  •  Telex  70601 7  (Av  Alarm  UD) 


L-^»it^^»»^t^.t.-..i.'  ■L<.^.i.<-t.^^^^^^»^-^^'^»S.t^^^.<,^^^^^--'Lt^^--<-^-'-l-t-t.^-^-Jt^^^^^^S.^^^j 


FOR  MAIL  ORDERS  ONLYl  CALL  TOLL  FREE   I-800-H4-S888 


s^EMPCflEE 


ASTORIA 

4017  Broadway  Easi  01 

Steinwav  St.  Corner 

FOR  INFO:  718-726-8118 

MON^FRJ.  I0:]0*7/CL0SED  SAT,/SUN.  i\-* 


GREAT  NECK 

5820  KMs  Neck  fload 
FOR  INFO:  5I6-829-ZI88 

MON.-FRI.   ll-7/eiPUD  SiT./SUN.  Il-J 


EPSON  v^ii:.i 

BM  PC/XT 
COMPATIBLE 


$549 


•Equity  1  Computer  •256K  Ram  Power 
•Dual  36QK  Disk  Drives  •12"  Higti  Resolu- 
tion Monitor  •Serial  and  Parallel  Ports 


9BUJEOIIF 


IBM  PC/XT 

COMPATIBLE 

PACKAGE 

<S3S 


•Blue  Chip  Keyboard  'IW.  Eipaoiioble  To  540K 
•G  Eipaosion  Slots-Optionai  2DfU1B  Hard  Drive 
•All  Hook  Up  Cables  S  Adaptors  'Packisge  Of 
10  Disketlcs  •H"  Mooitor 


TURBO 


IBM  PC/XT 
COMPATIBLE 

*749 

•640K  'Z  Drive ;  360K  •6038  ,'  2  CPU 
•4.77  a  MHZ  'M"  High  Resolution 
fUlonitor 


,  AUTHORIZED  DEALER  FOR 
HOST  KAIOR  BRAMDI 


COMMODORE 

PC  10  (I  PACKAGE) 
IBM  PC/XT 
COMPATIBLE 

$565 

•PCIO     1  Conputer  •512K  Espandable  To  64DK 

•36QK  Disk  Oriie  •Eohanced  Keyboard  •Serial  S 

farailel  Ports  -All  HooltUp  Cables  &  Adaptors  'lO 

Oisketies 

PCIO  -  1  640K  COMPUTER  W/ 

jeOK  FLOPPY  DRIVES 


II  GS  PACKAGE 


•Appie  II  GS  Computer  •5.25"  Orsk  Drive  •12" 
Monilor  •Package  Of  10  Diskettes  •AC  Adaptors 
•All  Hook  Up  Cables  $  |  A^Q 

COMMODORE 


^<j^v^*; 


'Commodore  wZ  Personal  Computer 
■Commodore  128  Personal  Computer 
•Commodore  MPS1200  Computet 

Printer 
•  Commoilore  MPS-803C  Computer 

Ptrnier 
•Commodore  MPS  lODO  Compuiet 

Primer 
"Panasonic   lOBDi   


$135 
S2I8 

S209 

$109 

SI79 
SI6$ 


r  ALL  COMPUTERS  &  PERIPHERALS 

*  COME  COMPLETE  W/AC  ADAPTOR, 
t  OWNER'S  MAMUAL  AND  ALL 

*  CONNECTIMG  CABLES. 


MODEMS  IN  STOCKI 


•  COMMODORE 


'^m^aGA 


NEWIl  SOO 

AMIGA  5IIK 
SYSTEM  ^ft.T*^"- 

•512K  Computer  WiBuillln  Disk  Drive  S 
.!??". p?'."', 'Monitor  •Iticluifjng  Software 

AMIGA  2000 CALL 

ATARI    520    COLOR..  CALL 


'/^^■^     EXPANSION 
/^     MODELS  AVAILABLE! 
Call  For  Low  Pricesll 


•F.15 '12.95 

"Pitstop *  1 1.95 

■Pitfall *8.95 

"Championship 


Baseball 


*I9.95 


COMMODORE 


WE'LL  BEAT  ANY  PRrcEl 


C  64  COMPLETE  PACKAGE 

•CoTmodore  &5  Compuler  *CofnrTioti[HE  1531  Disk  []n« 
*Coiir>odorE  Cofor  Piinier  12"  MDniTor 

$149.00 


C   118  COMPLETE  PACKAGE 

•Commodore  128  Compuiet  "ComiTiodaie  1&41  te  (iw 


12"  Monitor  .CommDlJarE  CoiOf  Printer 
COLORMOHITOR  ADO  SI30.  £499    Ofl 


TO  SUB.  IJJl   FOR  im  APP  151. 


C  64C  COLOR  PACKAGE 

I  .Ccmnadore  6^C  Computer  •Commoilrjre  l^'ll  Diik 
I  Orr^e  .Camr^odore  Color  Printer  •Coioi  Warrtor  Wilh 
I  GEOS  Program     $449.00 


C   IIS  DELUXE  PACKAGE 

■  Commodore  1?fl  ComputW  •Commodfl**  1571  Diik  Drive 
•  CommorJore  19D2  Color  Monitor  .rnmmnrtnre 
BO  Coiumn  Printer         _  $C99.00 


FULL  LINi  OF  IBM 
COMPATABLEStt 

Call  For  Lowest  Pricesll 

COMMODORE 


•Commodore  1541C  New!! 

Disk    Drive $159 

•Commotfore  1571  Computer 

Disk    Drive $205 

•Commodore  1902  8D  Column 

RGB   Color  Monitor..  ..$225 
•Espansion  Modules  Available^ 
COMMODORE  C-I801 
COLOR  MONITOR      $  |  7f 


ALL  HERCHANOISE  IS  BRAND  NEW 

AND  FACTORT  FRESH,  COMPLETE 

WITH  MFC.  U.S,A.  WARRANTY. 


•  SERVICE  Ct^JTER  FOR  COMMQDCflE' 
-ATARI  COMPUTERS  AT  LOW  PRICES' 


Mastercard,  Vtsa,  Amcnean  Express.  Diner's  Club.  Carte  BfArtchc,  Bu^avcr  Caril,  Certified  Antf  0>nl<  ChecKt  W»kome.  C.O.{>.'i  Acetpted  Upon  Ap- 
orovBl.  No  AddrtJohal  SurchafEC  For  Credit  Cartj  Ortftn-  N  on -Certified  Chctks  i  H<tt\bf  Ordcri  Kust  Wait  For  CSeirance.  N.Y.  Residents  Add  Applicable  j 
Sales  Tax.  Wc  Arc  Not  Responsible  For  Typogr;iphiea(  Errori.  PnccJ  And  AvaHabllity  Are  Subject  To  ChsnRc  Without  Notice.  To  Return  Defeetive  Mer*  j 
chandne  Ca.H  For  Authorization  Number,  IBM  PC/XT  Are  Regiitcrcd  Trademarks  Of  Inttrn.itlonar  Bustncst  Machmt  Corp.  Al[  Orders  Can  Be  Shipped  j 
Air  Express^ 


:^^^^^T^^^^^»-^^^^^^iJ-/4P-i'yit'l^<^^^'-^'^'^^'*^^^'^^^'^^'-'-^^^^^^^'*^^^^^'-^'-'-'-^^'-^'^^'-'-'-'-'-'-'-^'-^^^ 


COMPUTEi's  Guide 

To  Typing  In  Programs 


Computers  are  precise — type  the  pro- 
gram exactly  as  listed,  including  neces- 
sary punctuation  and  symbols,  except 
for  special  characters  noted  below.  We 
have  provided  a  special  listing  conven- 
tion as  well  as  a  program  to  check  your 
typing — "The  Automatic  Proofreader." 

Programs  for  the  IBM,  TI-99/4A, 
and  Atari  ST  models  should  be  typed 
exactly  as  listed;  no  special  characters 
are  used.  Programs  for  Commodore, 
Apple,  and  Atari  400/800/XL/XE 
computers  may  contain  some  hard-to- 
read  special  characters,  so  we  have  a 
listing  system  that  indicates  these  con- 
trol characters.  You  will  find  these 
Commodore  and  Atari  characters  in 
curly  braces;  do  not  type  the  braces.  For 
example,  {CLEAR}  or  (CLR}  instructs 
you  to  insert  the  symbol  which  clears 
the  screen  on  the  Atari  or  Commodore 
machines.  A  complete  list  of  these  sym- 
bols is  shown  in  the  tables  below.  For 
Commodore,  Apple,  and  Atari,  a  single 
symbol  by  itself  within  curly  braces  is 
usually  a  control  key  or  graphics  key.  If 
you  see  (A},  hold  down  the  CONTROL 
key  and  press  A.  This  will  produce  a 
reverse  video  character  on  the  Commo- 
dore (in  quote  mode),  a  graphics  char- 
acter on  the  Atari,  and  an  invisible 
control  character  on  the  Apple. 

Graphics  characters  entered  with 
the  Commodore  logo  key  are  enclosed 
in  a  special  bracket:  f«;A>^.  In  this  case, 
you  would  hold  down  the  Commodore 
logo  key  as  you  type  A.  Our  Commo- 
dore listings  are  in  uppercase,  so  shifted 
symbols  are  underlined.  A  graphics 
heart  symbol  (SHIFT-S)  would  be  listed 
as  S.  One  exception  is  {SHIFT- 
SPACE}.  When  you  see  this,  hold  down 
SHIFT  and  press  the  space  bar.  If  a 
number  precedes  a  symbol,  such  as  {5 
RIGHT},  {6  S},  or  t<8  Q>^,  you  would 
enter  five  cursor  rights,  six  shifted  S's, 
or  eight  Commodore-Q's.  On  the  Atari, 
inverse  characters  (white  on  black) 
should  be  entered  with  the  inverse  video 


Atari  400/800/XL/XE 


Wtien  you 

{CLEAR} 

CUP> 

{DOWN} 

{LEFT} 

{RIOHT} 

{BACK  SJ 

{DELETE} 

{INSERT} 

{DEL  LINE} 

(INS  LINE} 

{TAB} 

{CLR  TAB} 

{SET  TAB> 

{BELL> 

{ESC} 


Type 


ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 


SHIFT  < 
CTRL  - 
CTRL  = 
CTRL  + 
CTRL  » 
DELETE 
CTRL  DELETE 
CTRL  INSERT 
SHIFT  DELETE 
SHIFT  INSERT 
TAB 

CTRL  TAB 
SHIFT  TAB 
CTRL  2 
ESC 


See 


t 

4 
«■ 
•♦ 

LI 
O 
CI 
» 

CI 

El 


Clear  Screen 
Cur  5or  Up 
Cursor  Down 
Cursor  Left 
Cursor  Ri  ght 
Backspace 
Delete  character 
Insert  character 
Delete  line 
Insert  line 
TAB  key 
Clear  tab 
Set  tab  stop 
Ring  buzzer 
E9::ape  key 


Commodore  PET/CBM/VIC/64/1 28/16/+4 

Press:  See; 


When  You 
Read: 


WhenViiu 
Read: 


Press: 


(CLR! 

(HOME) 

{UP) 

(DOWN) 

(LEFT} 

(RIGHT) 

(RVS) 

(OFF) 

(BLK) 

(WHT) 

(RED) 

{CYN) 

{PUR) 

(GRN) 

(BLU) 

{YEL} 


SHIFT 

CLRIHOME 

CLRiHOME 

SHIFT 

t   CRSR  1 

t  CRSR  i 

SHIFT 


—  CHSE- 


U-CRSR— <■ 


eta. 


a 


CTRL 


CTRL 

1 

CTRL 

2 

CTRL 

3 

CTRL           4 

CTRL 

5 

aRL 

6 

CTRL 


J 


CTRL 


sa 


i8§ 

i  Fl  } 

{  n) 

{  B  } 
{  W  ) 
{  F5  } 
{  F6  ) 
{  F7) 

i  F8) 

•« 


COMMODORE 


commodore] 
commodore] 


COMMODORE 

COMMODORE 

COMMODORE 

n 

SHIFT 

fl 

fJ 

SHIFT 

(3 
S 

SHIFT 

B 

f! 

SHIFT         P 

E 

m 

H 

0 

H 


IS 

■I 
□ 
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key  (Atari  logo  key  on  400/800  models). 

Whenever  more  than  two  spaces 
appear  in  a  row,  they  are  listed  in  a 
special  format.  For  example,  {6 
SPACES}  means  press  the  space  bar  six 
times.  Our  Commodore  listings  never 
leave  a  single  space  at  the  end  of  a  line, 
instead  moving  it  to  the  next  printed 
line  as  {SPACE}. 

Amiga  program  listings  contain 
only  one  special  character,  the  left  ar- 
row {•-)  symbol.  This  character  marks 
the  end  of  each  program  line.  Wherever 
you  see  a  left  arrow,  press  RETURN  or 
move  the  cursor  off  the  line  to  enter 
that  line  into  memory.  Don't  try  to  type 
in  the  left  arrow  symbol;  it's  there  only 
as  a  marker  to  indicate  where  each  pro- 
gram line  ends. 

The  Automotic  Proofreader 

Type  in  the  appropriate  program  listed 
below,  then  save  it  for  future  use.  The 
Commodore  Proofreader  works  on  the 
Commodore  128,  64,  Plus/4,  16,  and 
VIC-20.  Don't  omit  any  lines,  even  if 
they  contain  unfamiliar  commands  or 
you  think  they  don't  apply  to  your  com- 
puter. When  you  run  the  program,  it 
installs  a  machine  language  program  in 
memory  and  erases  its  BASIC  portion 
automatically  (so  be  sure  to  save  sever- 
al copies  before  running  the  program 
for  the  first  time).  If  you're  using  a 
Commodore  128,  Plus/4  or  16,  do  not 
use  any  GRAPHIC  commands  while 
the  Proofreader  is  active.  You  should 
disable  the  Commodore  Proofreader 
before  running  any  other  program.  To 
do  this,  either  turn  the  computer  off  and 
on  or  enter  SYS  64738  (for  the  64),  SYS 
65341  (128),  SYS  64802  (VIC-20),  or 
SYS  65526  (Plus/4  or  16).  To  reenable 
the  Proofreader,  reload  the  program 
and  run  it  as  usual.  Unlike  the  original 
VIC/64  Proofreader,  this  version  works 
the  same  with  disk  or  tape. 

On  the  Atari,  run  the  Proofreader 
to  activate  it  (the  Proofreader  remains 
active  in  memory  as  a  machine  lan- 
guage program);  you  must  then  enter 
NEW  to  erase  the  BASIC  loader.  Press- 
ing SYSTEM  RESET  deactivates  the 
Atari  Proofreader;  enter  PRINT 
USRC1536)  to  reenable  it. 

The  Apple  Proofreader  erases  the 
BASIC  portion  of  itself  after  you  run  it, 
leaving  only  the  machine  language  por- 
tion in  memory.  It  works  with  either 
DOS  3.3  or  ProDOS.  Disable  the  Apple 
Proofreader  by  pressing  CTRL-RESET 
before  running  another  BASIC  program. 

The  IBM  Proofreader  is  a  BASIC 
program  that  simulates  the  IBM  BASIC 
line  editor,  letting  you  enter,  edit,  list, 
save,  and  load  programs  that  you  type. 
Type  RUN  to  activate.  Be  sure  to  leave 
Caps  Lock  on,  except  when  typing  low- 
ercase characters. 


Once  the  Proofreader  is  active,  try 
typing  in  a  line.  As  soon  as  you  press 
RETURN,  either  a  hexadecimal  number 
(on  the  Apple)  or  a  pair  of  letters  (on  the 
Commodore,  Atari,  or  IBM)  appears. 
The  number  or  pair  of  letters  is  called  a 
checksum. 

Compare  the  value  displayed  on 
the  screen  by  the  Proofreader  with  the 
checksum  printed  in  the  program  list- 
ing in  the  magazine.  The  checksum  is 
given  to  the  left  of  each  line  number. 
Just  type  in  the  program  a  line  at  a  time 
(without  the  printed  checksum),  press 
RETURN  or  Enter,  and  compare  the 
checksums.  If  they  match,  go  on  to  the 
next  line.  If  not,  check  your  typing; 
you've  made  a  mistake.  Because  of  the 
checksum  method  used,  do  not  type 
abbreviations,  such  as  ?  for  PRINT.  On 
the  Atari  and  Apple  Proofreaders, 
spaces  are  not  counted  as  part  of  the 
checksum,  so  be  sure  you  type  the  right 
number  of  spaces  between  quote 
marks.  The  Atari  Proofreader  does  not 
check  to  see  that  you've  typed  the  char- 
acters in  the  right  order,  so  if  characters 
are  transposed,  the  checksum  still 
matches  the  listing.  The  Commodore 
Proofreader  catches  transposition  er- 
rors and  ignores  spaces  unless  they're 
enclosed  in  quotation  marks.  The  IBM 
Proofreader  detects  errors  in  spacing 
and  transposition. 

IBM  Proofreader  Commands 

Since  the  IBM  Proofreader  replaces  the 
computer's  normal  BASIC  line  editor,  it 
has  to  include  many  of  the  direct-mode 
IBM  BASIC  commands.  The  syntax  is 
identical  to  IBM  BASIC.  Commands 
simulated  are  LIST,  LLIST,  NEW, 
FILES,  SAVE,  and  LOAD.  When  listing 
your  program,  press  any  key  (except 
Ctrl-Break)  to  stop  the  listing.  If  you 
enter  NEW,  the  Proofreader  prompts 
you  to  press  Y  to  be  especially  sure  you 
mean  yes. 

Two  new  commands  are  BASIC 
and  CHECK.  BASIC  exits  the  Proof- 
reader back  to  IBM  BASIC,  leaving  the 
Proofreader  in  memory.  CHECK  works 
just  like  LIST,  but  shows  the  checksums 
along  with  the  listing.  After  you  have 
typed  in  a  program,  save  it  to  disk. 
Then  exit  the  Proofreader  with  the 
BASIC  command,  and  load  the  pro- 
gram as  usual  (this  replaces  the  Proof- 
reader in  memory).  You  can  now  run 
the  program,  but  you  may  want  to  re- 
save  it  to  disk.  This  will  shorten  it  on 
disk  and  make  it  load  faster,  but  it  can 
no  longer  be  edited  with  the  Proofread- 
er. If  you  want  to  convert  an  existing 
BASIC  program  to  Proofreader  format, 
save  it  to  disk  with  SAVE  "filename", A. 


\)^ 


Program  1:  Atari 
Proofreader 

By  Charles  Brannon 

100     GRAPHICS     0 

110    FOR     1=1536     TD     1700:REA 

D    fl:POKE     I,  A:CK  =  C!<-Hfl:N 

EXT  I 
120  IF  CKOI9072  THEN  ?  "E 

rror  in  DATA  Statement 

s.   Check  Typing.  ■':  END 


130 
140 

1S0 
160 

170 

1B0 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 


A=USR ( 
7  :  ?  " 
eader 
END 

-A  1 
3,  20 


1536) 

Automatic  Proofr 

NoM  Activated." 


DATA  1 
3, 201  ,  I 
DATA  2i 


S, 243, 

DATA  1 

6, 153, . 

DATA  0 


4,  6,231 
DATA  2l 


04, 160 

69,240 
00, 200 
96, 200 
53, 26, 
26,3,  1 
189,0 


,  0,  1B5, 26 
,7 


DA  I  H  '/i]i 
1,78,6, 
DATA  7"; 
, 105, 1 
DATA  6 
,  141,9, 
DATA     0 


;2,224 


>08,245, 
i, 169, 6, 


9,6,24 

,141,9 

, 173, 5 

6,6,  16 

i,  133,  2! 

_-_,_J5,241,' 

DATA  244,241 


238, 12E 


24, 241 , 76, 20 
DATA  0 


46, 8, 2 
DATA  1 


0,0,0 
01 


,240,7 
DATA     2l 
0, 96, 7 
DATA     7 
145,88 
DATA     21 
4,74,7 
DATA     1< 
165,20: 
DATA     If 
B, 169, 
DATA     1 
0,96 


55, 240 
72,24 


:03,  133 
■2,152, 
2,  160,11 
, 200,  1' 
;08,  249, 
'4,74, 2 
61 , 160 

)3,4i ,  i; 

—  161 


i,  192,34,20 
I,  169,74 

3, 200,  169, 

62 
1,228,  157,  7 

16 
j,  169,93,  14 
>,  141 

,  173,  4,  228 
'5 

, 228, 105, 0 
i9 
103, 96, 247, 

93,  6 

, 1 15,241 , 1 

5,  238 
0, 32, 62, 2 

,  13,201 , 32 

,  101 

, 203, 104, 4 
,72, 13B 
.0, 169, 128, 
192,40 


92,40 

, 165, 203, 7 
!4,  105 
I,  3,  145,  88, 

5,  24 

, 200, 14S, e 

104 


13, 

05, , ,.,_,_ 

0, 133, 203, 104 
70, 104, 16B, 104, 4 


Program  2:  IBM  Proofreader 

By  Charles  Brannon 

10  'Automatic  Proofreader  Vers 
ion  3.0  (Lines  205,206  adde 
d/190  delBted/470,490  Chang 
ed  -from  V2.0) 
100  DIM  L*(500) ,LNUM(500) :COLD 
R  0,7, 7: KEY  OFF: CLS: MAX=0: 
LNUM(0) -65536! 
110  ON  ERROR  GOTO  120: KEY  15, C 
HR*(4)+CHR*(70):ON  KEY (15) 
BOSUB  640; KEY  (15)  ON: GOT 
0  130 
120  RESUME  130 

130  DEF  SEG=S.H40:W=PEEK{!<H4A) 
140  ON  ERROR  GOTO  650: PR I NT: PR 

INT"ProQ-freader  Ready.  " 
150  LINE  INPUT  L«:Y=CSRLIN-INT 

(LEN(L*)/W>-1: LOCATE  Y, 1 
160  DEF  SE6=0:POKe  1050,30:PDK 
E  1052, 34: POKE  1054,0: POKE 
1055,79:POKE  1056, 13:PQKE 
1057, 28; LINE  INPUT  L«:DEF 
SEE; IF  L«=""  THEN  150 
170  IF  LEFT*(L*, 1)="  "  THEN  L» 
=hID«CL»,2)2EDT0  170 
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180  IF  VflL.(LEFT«(L*,2)  )=0  AND 
MID*  (L*,  3,1)="  "  THEN  L»=li 
IDSCLS,4) 

200  IF  ASC{L*)>57  THEN  260  'no 
line  niiirber,  therefore  ca 
mmand 

205  BL=INSTR(L«,"  "JiIF  BL=0  T 
HEN  BL*=L$:GaTO  206  ELSE  B 
L»=LEFT*{L«,BL-1) 

206  LNUM=VflL(BL«) :TEXT*=MID*(L 
*, LEN (STR* (LNUM) ) +1 ) 

210  IF  TEXT*=""  THEN  GOSUB  540 

:IF  LNUM=LNUM!P)  THEN  BDSU 

B  560:BDTD  150  ELSE  150 
220  CKBUM=0:FDR  1=1  TO  LEN(L«) 

! CKSUH= (CKSUM+ASC  <MIDt (L« , 

in«I)  AND  255:  NEXT!  LOCATE 
Y, 1:PRINT  CHR*(65+CKSUM/1 

6)+CHR»(65+(CKSUM  AND  15)) 

+"  "+L« 
230  GOSUB  540: IF  LNUM(P)=LNUM 

THEN  L*(P)=TEXT«:GaTD  150 

'replace  line 
240  GOSUB  380: GOTO  150  'insert 

the  line 
260  TEXTt="":FOH  1=1  TO  LEN(L« 

) : A=ASC (MID*  CL« , I ) ) : TEXT»= 

TEXT*+CHR«(A+32t(A>96  AND 

A<123) ) :NEXT 
270  DELIMITER=INSTR(TEXT*, "  ") 

! CDMMAND»=TEXT«:  ARE*=" " j IF 
DELIMITER  THEN  COMMAND*=L 

EFT* (TEXT*, DELIMITER-1):AR 

G»=MID* (TEXT*, DELIMITER+1 ) 
ELSE  DELIMITER=IN5TR(TEXT 

«,CHRt;34)):IF  DELIMITER  T 

HEN  CDMMAND*=LEFT« ( TEXT*,  D 

ELIMITER-1 > : ARS*=MID* (TEXT 

», DELIMITER) 
280  IF  CDMMAND*<>"L1ST"  THEN  4 

10 
290  OPEN  "Sdrn:"  FOR  OUTPUT  AS 

ttl 
300  IF  ARG*=""  THEN  FIRST=0: P= 

MAX-1:GDTD  343 
310  DELIMITER=INSTR(ARS*,  ■■-"): 

IF  DELIMITER=0  THEN  LNUM=V 

AL(AR6») : GOSUB  540:FIRST=P 

jBDTD  340 
320  FIRST=VAL{LEFT*(ARG«,DELIM 

I TER )):LAST=VAL(MID*(ARG*, 

DELIMITER+D) 
330  LNUM=FIRST:BaSUB  540: FIRST 

=P:LNUM=LABT: GOSUB  540: IF 

P=0  THEN  P=MAX-1 
340  FOR  X=FIRST  TO  P:N«=MID*(S 

TR*(LNUM(X) ) ,2>+"  " 
350  IF  CKFLA6=0  THEN  A*="":60T 

0  370 

360  CKSUM=0:A*=N*+L»tX) :FaR  1= 

1  TO  LEN(A*) :CKSUM=(CKSUM+ 
ASC(MID«(A*,I))*I)  AND  255 
:NEXT:A*=CHR«(65+CKSUM/16) 
+CHR*(65+(CKSUM  AND  15))+" 

370  PRINT  «l,At+NS+L»(X> 

380  IF  INKEY«<>""  THEN  X=P 

390  NEXT  : CLOSE  #1:CKFLAG=0 

400  GOTO  130 

410  IF  COMMAND*="LLIST"  THEN  D 

PEN  "Iptl:"  FOR  OUTPUT  AS 

#1:G0T0  300 
420  IF  COMMAND*!=" CHECK"  THEN  C 

KFLAG=1:BOTO  290 
430  IF  COMMANDS<>"SAVE"  THEN  4 

50 

440  GOSUB  600: OPEN  ARG*  FOR  OU 
TPUT  AS  #1:AR6*="":BDT0  30 
0 

450  IF  C0MMAND*<>"L0AD"  THEN  4 
90 


460  GOSUB  600: OPEN  ARG*  FOR  IN 
PUT  AS  #1:MAX=0:P=0 

470  WHILE  NOT  E0F£1):LINE  INPU 
T  #l,L»iBL=INSTR(L*,  "  "):B 
L4=LEFT» {L»,BL-1):LNUM(P)= 
VAUBL*)  :L*(P)=MID*(L*,LEN 
(STR* ( VAL (BL*) ))+!); P=P+1 : 
MEND 

480  MflX=P: CLOSE  »1:60TO  130 

490  IF  COMMAND*="NEW"  THEN  INP 
UT  "Erase  program  -  Are  yo 
u  sure" I L»: IF  LEFT«(LS,1)= 
"y"  OR  LEFT*fL*,l)="Y"  THE 
N  MAX=0; LNUM (0) =65536!: GOT 
0  130: ELSE  130 

500  IF  COMMAND»-"BASIC"  THEN  C 
OLOR  7, 0,0: ON  ERROR  SOTO  0 
{CLS:END 

510  IF  COMMAND*<>" FILES"  THEN 
520 

515  IF  ARGt=""  THEN  ARG«="fi: " 
ELSE  SEL=1; GOSUB  600 

517  FILES  ARG»:GOTO  130 

520  PRINT-Syntax  error":BOTD  1 
30 

540  P=0: WHILE  LNUM>LNUM(P)  AND 

P<MAX; P=P+ 1 : WEND: RETURN 
560  MAX=MAX-1:F0R  X=P  TO  MAXiL 
NUM(X)=LNUM(X+n !L*(X)=L*( 
X+I): NEXT: RETURN 
580  MAX=MAX+l:FOR  X=MAX  TO  P+1 
STEP  -1:LNUM(X)=LNUMCX-1) 
!L»(X)=L*<X-1):NEXT:L*(P)= 
TEXT*: LNUM (P) =LNUM: RETURN 
600  IF  LEFT«(ARBt,l)<>CHR$(34) 
THEN  520  ELSE  ARG*=MID*(A 
Ra*,2) 
610  IF  RIBHT«{ARB4, 1)=CHR*(34) 
THEN  ARG»=LEFT*  <  AR6* , LEN ( 
ARG«)-1) 
620  IF  SEL=0  AND  INSTR (ARE*, ". 
")=0  THEN  ARG*=ARG«+".BAS" 
630  SEL=0; RETURN 
640  CLOSE  #l:CKFLAG=0:PRINT"St 

apped. ": RETURN  150 
650  PRINT  "Error  #"; ERR: RESUME 
150 

Program  3:  Commodore 
Proofreader 

By  Philip  Nelson,  Assistant  Editor 

10  VEC=PEEK(772)+256*PEEK(773) 

:LO=43:HI=44 

20  print  "automatic  proofreade 
r  for  ";:if  vec=42364  then 
JspaceIprint   "C-64" 

30  if  vec=505s6  then  print  "vi 

C-20" 
40    IF   VEC=3515a    THEN    GRAPHIC    C 

LRsPRINT    "PLUS/4    &    16" 
50    IF   VEC=17165    THEN   L0=4S:HI= 

46SGRAPHIC    CLR; PRINT "128" 
60    SA=(PEEK(LO)+256*PEEK(HI) )+ 

6 : ADR=SA 
70    FOR    J=0    TO    166: READ    BYT:POK 

E    ADR,BYT:ADR=ADR+1 :CHK=CHK 

+BYT:NEXT 
80    IF   CHKO205  70    THEN    PRINT    "* 
ERROR*    CHECK    TYPING    IN    DATA 
STATEMENTS": END 
90    FOR  J=l    TO    5:READ    RF,LF,HF: 

RS=SA+RF:HB=INT(RS/256) :LB= 

RS-(256*HB) 
100  CHK=CHK+RF+LF+HF:POKE  SA+L 

F,LB!POKE  SA+HF,HB:NEXT 
110  IF  CHKO22054  THEN  PRINT  " 

* ERROR*  RELOAD  PROGRAM  AND 


[ SPACE JCHECK  FINAL  LINE": EN 

D 
120  POKE  SA+149,PEEK( 772) : POKE 

SA+150,PEEK(773) 
130  IP  VECs.17165  THEN  POKE  SA+ 

14, 22: POKE  SA+18, 23 :POKESA+ 
29  ,  224  :  POKESA+139 , 224 
140  PRINT  CHR5(147) ;CHR5(17) ;" 

PROOFREADER  ACTIVE": SYS  SA 
150  POKE  HI,PEEK(HI)+l:POKE  (P 

EEK(LC)+256*PEEK(HI) ) -1 ,0 :N 

EW 
160  DATA  120,169,73,141,4,3,16 

9,3,141,5,3 
170  DATA  38,96,165,20,133,167, 

165,21,133,168,169 
180  DATA  0,141,0,255,162,31,18 

1,199,157,227,3 
190  DATA  202,16,248,169,19,32, 

210,255,169,18,32 
200  DATA  210,255,160,0,132,180 

,132,176,136,230,180 
210  DATA  200,185,0,2,240,46,20 

1,34,208,8,72 
220  DATA  165,176,73,255,133,17 

6,104,72,201,32,208 
230  DATA  7,165,176,208,3,104,2 

08,226,104,166,180 
240  DATA  24,16  5,167,121,0,2,13 

3,167,165,168,105 
250  DATA  0,133,168,202,208,239 

,240,202,165,167,69 
260  DATA  168,72,41,15,168,185, 

211,3,32,210,255 
270  DATA  104,74,74,74,74,168,1 

35,211,3,32,210 
280  DATA  255,162,31,189,227,3, 

149,199,202,16,248 
290  DATA  169,146,32,210,255,76 

,86,13  7,65,66,67 
300  DATA  68,69,70,71,72,74,75, 

77,80,81,82,83,88 
310  DATA  13,2,7,167,31,32,151, 

116,117,151,128,129,167,136 

,137 

Program  4:  Apple 
Proofreader 

By  Tim  Victor,  Editorial  Programmer 

10  C  =  0:  FDR  I  =  76B  TO  768  + 

68:  READ  A:C  =  C  +  A:  POKE  I 

J  A;  NEXT 
20  IF  C  <  >  7258  THEN  PRINT  "ER 

ROR  IN  PROOFREADER  DATA  STAT 

EMENTS":  END 
30  IF  PEEK  (190  «  256)  <  >  76  T 

HEN  POKE  56,0:  POKE  57,3s  CA 

LL  1002:  GOTO  50 
40  PRINT  CHR*  (4) s "IN#A*300" 
50  POKE  34,0:  HOME  :  POKE  34,1: 
VTAB  2:  PRINT  "PROOFREADER 

INSTALLED" 
60  NEW 

100  DATA  216,32,27,253,201,141 
110  DATA  208,60,138,72,169,0 
120  DATA  72,189,255,1,201,160 
130  DATA  240,8,104,10,125,255 
140  DATA  1,105,0,72,202,208 
150  DATA  238,104,170,41,15,9 
160  DATA  48,201,58,144,2,233 
170  DATA  57,141,1,4,138,74 
180  DATA  :'4, 74, 74, 41,  15,9 
190  DATA  48,201,58,144,2,233 
200  DATA  57,141,0,4,104,170 
210  DATA  169,141,96  © 
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MLX 

Otiis  Cowper,  Technical  Editor  I 


Machine  Language  Entry  Program 
For  Commodore  64 


"MIX"  is  a  labor-saving  utility  that  allows 
almost  fail-safe  entry  of  Commodore  64 
machine  language  programs. 


Type  in  and  save  some  copies  of  MLX — 
you'll  want  to  use  it  to  enter  future  ma- 
chine langauge  (ML)  programs  from 
COMPUTE!.  When  you're  ready  to  enter 
an  ML  program,  load  and  run  MLX.  It 
asks  you  for  a  starting  address  and  an 
ending  address.  These  addresses  appear 
in  the  article  accompanying  the  MLX- 
format  program  listing  you're  typing. 

If  you're  unfamiliar  with  machine 
language,  the  addresses  (and  all  other 
values  you  enter  in  MLX)  may  appear 
strange.  Instead  of  the  usual  decimal 
numbers  you're  accustomed  to,  these 
numbers  are  in  hexadecimal — a  base  16 
numbering  system  commonly  used  by 
ML  programmers.  Hexadecimal — hex 
for  short — includes  the  numerals  0-9 
and  the  letters  A-F.  But  don't  worry — 
even  if  you  know  nothing  about  ML  or 
hex,  you  should  have  no  trouble  using 
MLX. 

After  you  enter  the  starting  and  end- 
ing addresses,  youH  be  offered  the  op- 
tion of  clearing  the  workspace.  Choose 
this  option  if  you're  starting  to  enter  a 
new  listing.  If  you're  continuing  a  listing 
that's  partially  typed  from  a  previous 
session,  don't  choose  this  option, 

A  functions  menu  -will  appear.  The 
first  option  in  the  menu  is  ENTER 
DATA.  If  you're  just  starting  to  type  in  a 
program,  pick  tWs.  Press  the  E  key,  and 
type  the  first  number  in  the  first  line  of 
the  program  listing.  If  you've  already 
typed  in  part  of  a  program,  type  the  line 
number  where  you  left  off  typing  at  the 
end  of  the  previous  session  (be  sure  to 
load  the  partially  completed  program 
before  you  resume  entry).  In  any  case, 
make  sure  the  address  you  enter  corre- 
sponds to  the  address  of  a  line  in  the 
listing  you  are  entering.  Otherwise,  you'll 
be  unable  to  enter  the  data  correctly.  If 
you  pressed  E  by  mistake,  you  can  return 
to  the  command  menu  by  pressing  RE- 
TURN alone  when  asked  for  the  address. 
(You  can  get  back  to  the  menu  from  most 
options  by  pressing  RETURN  virith  no 
other  input.) 

Entering  A  Listing 

Once  you're  in  Enter  mode,  MLX  prints 
the  address  for  each  program  line  for 
you.  You  then  type  in  all  nine  numbers 
on  that  line,  beginning  with  the  first  two- 
digit  number  after  the  colon  (;).  Each  line 
represents  eight  data  bytes  and  a  check- 


sum. Although  an  MLX-format  listing 
appears  similar  to  the  "hex  dump"  list- 
ings from  a  machine  language  monitor 
program,  the  extra  checksum  number  on 
the  end  allows  MLX  to  check  your 
typing. 

When  you  enter  a  line,  MLX  recalcu- 
lates the  checksum  from  the  eight  bytes 
and  the  address  and  compares  this  value 
to  the  number  from  the  ninth  column.  If 
the  values  match,  you'll  hear  a  bell  tone, 
the  data  will  be  added  to  the  workspace 
area,  and  the  prompt  for  the  next  line  of 
data  will  appear.  But  if  MLX  detects  a 
typing  error,  you'll  hear  a  low  buzz  and 
see  an  error  message.  The  line  will  then 
be  redisplayed  for  editing. 

invalid  Characters  Banned 

Only  a  few  keys  are  active  while  you're 
entering  data,  so  you  may  have  to  un- 
learn some  habits.  You  do  not  type  spaces 
between  the  columns;  MLX  automatical- 
ly inserts  these  for  you.  You  do  not  press 
RETURN  after  typing  the  last  number  in 
a  line;  MLX  automatically  enters  and 
checks  the  line  after  you  type  the  last 
digit. 

Only  the  numerals  0-9  and  the  let- 
ters A-F  can  be  typed  in.  If  you  press  any 
other  key  (with  some  exceptions  noted 
below),  you'U  hear  a  warning  buzz.  To 
simplify  typing,  a  numeric  keypad  is  now 
incorporated  in  the  listing.  The  keypad  is 
active  only  while  entering  data.  Address- 
es must  be  entered  with  the  normal  letter 
and  number  keys.  The  figure  below 
shows  the  keypad  configuration: 
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MLX  checks  for  transposed  charac- 
ters. If  you're  supposed  to  type  in  AO  and 
instead  enter  OA,  MLX  will  catch  your 
mistake.  There  is  one  error  that  can  slip 
past  MLX:  Because  of  the  checksum  for- 
mula used,  MLX  won't  notice  if  you  acci- 
dentally type  FF  in  place  of  00,  and  vice 


versa.  And  there's  a  very  slim  chance  that 
you  could  garble  a  line  and  still  end  up 
with  a  combination  of  characters  that 
adds  up  to  the  proper  checksum.  How- 
ever, these  mistakes  should  not  occur  if 
you  take  reasonable  care  while  entering 
data. 

Editing  Features 

To  correct  typing  mistakes  before  finish- 
ing a  line,  use  the  INST/DEL  key  to 
delete  the  character  to  the  left  of  the 
cursor.  (The  cursor-left  key  also  deletes.) 
If  you  mess  up  a  line  really  badly,  press 
CLR/HOME  to  start  the  Une  over.  The 
RETURN  key  is  also  active,  but  only 
before  any  data  is  typed  on  a  Ene.  Press- 
ing RETURN  at  this  point  returns  you  to 
the  command  menu.  After  you  type  a 
character  of  data,  MLX  disables  RETURN 
until  the  cursor  returns  to  the  start  of  a 
line.  Remember,  you  can  press  CLR/ 
HOME  to  quickly  get  to  a  line  number 
prompt. 

More  editing  features  are  available 
when  correcting  lines  in  which  MLX  has 
detected  an  error.  To  make  corrections  in 
a  line  that  MLX  has  redisplayed  for  edit- 
ing, compare  the  Une  on  the  screen  with 
the  one  printed  in  the  listing,  then  move 
the  cursor  to  the  mistake  and  type  the 
correct  key.  The  cursor  left  and  right  keys 
provide  the  normal  cursor  controls.  (The 
INST/DEL  key  now  works  as  an  alterna- 
tive cursor-left  key.)  You  cannot  move 
left  beyond  the  first  character  in  the  line. 
If  you  try  to  move  beyond  the  rightmost 
character,  you'll  reenter  the  Une.  During 
editing,  RETURN  is  active;  pressing  it 
tells  MLX  to  recheck  the  line.  You  can 
press  the  CLR/HOME  key  to  dear  the 
entire  line  if  you  want  to  start  from 
scratch,  or  if  you  want  to  get  to  a  line 
number  prompt  to  use  RETURN  to  get 
back  to  the  menu. 

Display  Data 

The  second  menu  choice,  DISPLAY 
DATA,  examines  memory  and  shows  the 
contents  in  the  same  format  as  the  pro- 
gram listing  (including  the  checksum). 
When  you  press  D,  MLX  asks  you  for  a 
starting  address.  Be  sure  that  the  starting 
address  you  give  corresponds  to  a  line 
number  in  the  listing.  Otherwise,  the 
checksum  display  will  be  meaningless. 
MLX  displays  program  lines  until  it 
reaches  the  end  of  the  program,  at  which 
point  the  menu  is  redisplayed.  You  can 
pause  the  display  by  pressing  the  space 
bar.  (MLX  finishes  printing  the  current 
line  before  halting.)  Press  space  again  to 
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restart  the  display.  To  break  out  of  the 
display  and  get  back  to  the  menu  before 
the  ending  address  is  reached,  press 
RETURN. 

Other  Menu  Options 

Two  more  menu  selections  let  you  save 
programs  and  load  them  back  into  the 
computer.  These  are  SAVE  FILE  and 
LOAD  FILE;  their  operation  is  quite 
straightforward.  When  you  press  5  or  L, 
MLX  asks  you  for  the  filename.  You'll 
then  be  asked  to  press  either  D  or  T  to 
select  disk  or  tape. 

You'll  notice  the  disk  drive  starting 
and  stopping  several  times  during  a  load 
or  save.  Don't  panic;  this  is  normal  be- 
havior. MLX  opens  and  reads  from  or 
writes  to  the  file  instead  of  using  the 
usual  LOAD  and  SAVE  commands.  Disk 
users  should  also  note  that  the  drive 
prefix  0:  is  automatically  added  to  the 
filename  (line  750),  so  this  should  not  be 
included  when  entering  the  name.  This 
also  precludes  the  use  of  @  for  Save- 
with-Replace,  so  remember  to  give  each 
version  you  save  a  different  name. 

Remember  that  MLX  saves  the  en- 
tire workspace  area  from  the  starting  ad- 
dress to  the  ending  address,  so  the  save 
or  load  may  take  longer  than  you  might 
expect  if  you've  entered  only  a  small 
amount  of  data  from  a  long  listing.  When 
saving  a  partially  completed  listing,  make 
sure  to  note  the  address  where  you 
stopped  typing  so  you'll  know  where  to 
resume  entry  when  you  reload. 

MLX  reports  the  standard  disk  or 
tape  error  messages  if  any  problems  are 
detected  during  the  save  or  load.  (Tape 
users  should  bear  in  mind  that  Commo- 
dore computers  are  never  able  to  detect 
errors  during  a  save  to  tape.)  MLX  also 
has  three  special  load  error  messages: 
INCORRECT  STARTING  ADDRESS, 
which  means  the  file  you're  tr)dng  to 
load  does  not  have  the  starting  address 
you  specified  when  you  ran  MLX;  LOAD 
ENDED  AT  address,  which  means  the  file 
you're  trying  to  load  ends  before  the 
ending  address  you  specified  when  you 
started  MLX;  and  TRUNCATED  AT 
ENDING  ADDRESS,  which  means  the 
file  you're  trying  to  load  extends  beyond 
the  ending  address  you  specified  when 
you  started  MLX.  If  you  see  one  of  these 
messages  and  feel  certain  that  you've 
loaded  the  right  file,  ewt  and  rerun  MLX, 
being  careful  to  enter  the  correct  starting 
and  ending  addresses. 

The  QUIT  menu  option  has  the  ob- 
vious effect — it  stops  MLX  and  enters 
BASIC.  The  RUN/STOP  key  is  disabled, 
so  the  Q  option  lets  you  exit  the  program 
vrithout  turning  off  the  computer.  (Of 
course,  RUN/STOP-RESTORE  also  gets 
you  out.)  You'll  be  asked  for  verification; 
press  Y  to  exit  to  BASIC,  or  any  other  key 
to  return  to  the  menu.  After  quitting,  you 


can  type  RUN  again  and  reenter  MLX 
without  losing  your  data,  as  long  as  you 
don't  use  the  dear  workspace  option. 

The  Finished  Product 

When  you've  finished  typing  all  the  data 
for  an  ML  program  and  saved  your  work, 
you're  ready  to  see  the  results.  The  in- 
structions for  loading  and  using  the  fin- 
ished product  vary  from  program  to 
program.  Some  ML  programs  are  de- 
signed to  be  loaded  and  run  like  BASIC 
programs,  so  all  you  need  to  type  is 
LOAD  "filename",^  for  disk  or  LOAD 
"filename"  for  tape,  and  then  RUN.  Such 
programs  will  usually  have  a  starting 
address  of  0801  for  the  64.  Other  pro- 
grams must  be  reloaded  to  specific  ad- 
dresses with  a  command  such  as  LOAD 
"fiiemme", 8,1  for  disk  or  LOAD  "file- 
name",1,1  for  tape,  then  started  with  a 
SYS  to  a  particular  memory  address.  On 
the  Commodore  64,  the  most  common 
starting  address  for  such  programs  is 
49152,  which  corresponds  to  MLX  ad- 
dress COOO.  Ln  either  case,  you  should 
always  refer  to  the  article  which  accom- 
panies the  ML  listing  for  information  on 
loading  and  running  the  program. 

An  Ounce  Of  Prevention 

By  the  time  you  finish  typing  in  the  data 
for  a  long  ML  program,  you  may  have 
several  hours  invested  in  the  project. 
Don't  take  chances — use  our  "Automatic 
Proofreader"  to  type  the  new  MLX,  and 
then  test  your  copy  thoroughly  before  first 
using  it  to  enter  any  significant  amount  of 
data.  Make  sure  all  the  menu  options 
work  as  they  should.  Enter  fragments  of 
the  program  starting  at  several  different 
addresses,  then  use  the  Display  option  to 
verify  that  the  data  has  been  entered 
correctly.  And  be  sure  to  test  the  Save 
and  Load  options  several  times  to  ensure 
that  you  can  recall  your  work  from  disk 
or  tape.  Don't  let  a  simple  typing  error  in 
the  new  MLX  cost  you  several  nights  of 
hard  work. 


MLX  For  Commodore  64 

SS    10    REM    VERSION    \.\:    LINES    8 
30,950    MODIFIED,    LINES   4 
85-487    ADDED 
EK    .100    POKE    56,50  :CLR:  DIM    INS, 

I,J,A,B,A$,B$,A(7),B? 
DM    1,1.0    C4a48!C6=.1.6!C7=7i22=2iZ 

4=254: 25=255: 36=256 :Z7= 

-1.27 
CJ    .1.20    FA=PEEK(45)+Z6*PEEK(46} 

:BS=PEEK(55)+Z6*PESK(56 

)  :H$="0.123456789ABCDEF" 
SB    .130    RS=CHR?(.13)  :LS  =  "[LEFT  j" 

:SS="    ":D?"CHR9(20);Z5= 

CHR5(0) :T?="[13    RIGHT j" 
CQ    .1.40    SD=54272:FOR    I=SD    TO    SD 

+23:POKE    I , 0 :NEXT: POKE 

( SPACE JSD+24,. 15  SPOKE    78 

8,52 
FC    -1.50    PRINT  "[CLR3"CHR$(. 142  )CH 

R$(8):P0KE    53280, 15 :POK 


EJ    .160 


FR    170 


JB    180 


GF    190 


KR   200 


PG    210 


DR    220 


E    53 281, 15 

pr::nt  t?"   (red!  [rvsj 

{2    SPACES )g8    @1 

12  SPACES )"SPCC 28)" 

[2    SPACES ]( OFF 1 {BLO}    ML 
X    II     {REDJlRVSJ 
(2    SPACES ]"SPC( 28)" 
{12    SPACES  HBLU}" 
PRINT" (3    DOWN] 

13  SPACES JCOMPUTEl 'S    MA 
CHINE    LANGUAGE    EDITOR 
13    DOWN}" 

PR;:  NT  "  [  BLK  )  STARTING  ADD 
REt3Sg43",-:GOS[JB300iSA=A 
Ds<5OSUB1040:IF  F  THEN18 
0 

pr::nt"{blkJ  (2  spacesJen 

DIi?G  ADDRESSE4|";sG0SUB 
300 :EA=AD : GOSUB1030  s IF 
{ SPACE )F  THEN190 
INPUT" [3  DOWN) {BLK} CLEA 
R  WORKSPACE  [Y/N]g4i";A 
?:IP  LEFT$(A$,1 )<>"Y"TH 
EN220 

pr::nt"{2  down) {blu) work 
ing.. . "; :fori=bs  to  bs+ 
ea--  sa+7  !  poke  1,0:  next  :  p 
ri  nt  "done" 

PR]:NTTAB(10)"{2  DOWN) 
I BLK } { RVS 1  MLX  COMMAND 
I  SPACE) MENU  lDOWN)643": 

pr::nt  t5"{rvs)eIoff}nte 

R    DATA" 

PRINT    T?"{RVS)D{0FF}ISP 
LAY    DATA":PRINT    T? " 
{RVSlLlOFFlOAD    FILE" 
PRIiNT    T5"[RVSjSlOPF}AVE 

FILE":PRINT    T$"{RVS1Q 
{0FF1UIT12    DOWN} (BLK)" 
GE:?   A$:1F   A$=N?    THEN250 
A=0:FOR    1=1     TO    SsIP   AS= 
MID5( "EDLSQ",I,1)THEN    A 
=1:1=5 

SEXT:OH  A  GOTO420 , 610 , 6 
90.,  700,280:GOSUB1060:GQ 
TO::50 

PRIKT"iRVS)  QUIT  ":INPU 
T" ;D0WN}E4iARE    YOU    SURE 

[Y/N]";A$:IF    LEFT$(A$, 
1)-:>"Y"THEN220 
POKE    SD+24,0:END 
INS=N$  sAD=0  s INPUTIN5  s IF 
LEH ( INS ) <>  4THENRETURN 
BS=INS :GOSUB320 !AD=A5BS 
=ML-DS  ( IN? ,  3  )  :GOSUB320  :  A 
D=AD*  2  5  6+A : RETU  RN 
A=0:FOR   J=l    TO    2!AS=MID 
S(I)S,J,1)  :B=ASC(AS)-C4+ 
(Al?>  "@  "  )  *C7  :  A=A*C6+B 
IF    B<0    OR    B>15    THEN    AD= 
0:A=-1:J=2 
NE:CT:  RETURN 

B=INT(A/C6) :PRINT  MID$ ( 
H5 , B+1 , 1 ) ; s  B=A-B*C6 : PRI 
NT  HID?{H$,B+1,1); :RETU 
RN 

A=INT ( AD/Z6 } :GOSUB350 : A 
=  A]3-A*Z6:GOSUB350:  PRINT 


BE    370    CK=INT  (AD/26  )  tCKi=AD-Z4* 
CK-i-ZS*{CK>Z7)  !GOTO390 

PX    380    CK==CK*Z2+Z5*(CK>Z7)+A 

JC    390    CK==CK+Z5*(CK>Z5)  : RETURN 

QS    400    PRi:  NT  "{down}  STARTING    AT 
£4:!";  :GOSUB300:IF    IN5<> 
N?    THEN   GOSUB1030:IF    F 
[SPACE }THEN400 

EX    410    RETURN 

HD  420  PR::NT"(RVSJ  ENTER  DATA 
{ SPACE )":GOSUB400: IF  IN 
5=HS  THEN220 

JK  430  OPEN3,3:PRINT 

SK  440  POKE198,0sGQSUB360:IF  F 


bd 

230 

JS 

240 

JH 

250 

HK 

260 

FD 

270 

EJ 

280 

EM 

290 

JX 

300 

KF 

310 

PP 

320 

JA 

330 

GX 

340 

CH 

350 

RR 

360 
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THEN    PRINT    INStPRINT" 
tUP]l5    RIGHT)"; 
GC    450    FOR    1=0    TO    24    STEP    3tB$ 
=S$!FOR   J=l    TO    2:IF    F    T 
HEN    B$=MID?(IS5.I+J,1) 
HA    460    PRINT"(RVSl"B?L5,- :IF    I< 

24THEN    PRINT" (OFF}"; 
HD   470    GET   A9:IF   AS=NS    THEN470 
FK    480    IF(A5>'7"ANDA$<".-")OR(A 

$>"@"ANDA$<"G" )THEN540 
GS    485    A=-(A$="H")-2*(A?=",")- 
3*(A?  =  ".")-4*{A?  =  "/")-5  . 
* ( A$=" J" ) -6* ( A5="K"  ) 
FX    486    A=A-7*(A5="L")-8*(A5="! 
")-9*(A5="U" )-10*(A?="I 
")-ll*(AS="0")-.l2*(A5  =  " 
P") 
CM   487   A=A-J.3*(A?=S$)  sIP   A  THE 
N    A$=MID5("ABCD.123E456F 
0",A,1) :GOTO    540 
MP    490    IF    A$=RS    AND( (I=0)AND(J 
=1)0R    F)THEN    PRINT    B? ; : 
Ja2 :NEXT (1=24 :GOTO550 
KC    500    IF   A$="[HOME)"    THEN    PRI 
NT   B?!j=2:NEXT!i=24:NEX 
T:F=0:GOTO440 
MX    510    IF(AS="{RIGHT}")ANDF    TH 

ENPRINT    BSL$; :GOTO540 
GK    520    IF    A5<>L?    AND   A5<>D?    OR 
( (I=0)AND(J=1))THEN    GOS 
UB.1060:GOTO470 
HG    530   A5=L5+S$+L$:PRINT    B$L?; 
;J=2-J:IF    J    THEN    PRINT 
( SPACE ILS; : 1=1-3 
QS    540    PRINT    AS;:NEXT    J:PBINT 

{ SPACE )S?; 
PH    550    NEXT    I:PRINT:PRINT"[UP) 
[5    RIGHT)"; jINPUT*3, IN? 
:IF    IN5=N$    THEN    CLOSE 3 s 
GOTO220 
QC    560    FOR    1=1    TO    25    STEP3:B$= 
MID$(IK?,I) !GOSUB320!lF 
K25    THEN   GOSUB380!A(I 
/3)=A 
PK    570    KEXTtIF   AOCK    THEN    GOSU 
B1060:PRINT"{BLK}{RVSJ 
{SPACEIERROR:    REENTER   L 
INE    E4i"!F=l:GOTO440 
HJ    580   GOSUB1080:B=BS+AD-SA:FO 
R    1=0    TO    7  SPOKE    B+I,A(I 
) :NEXT 
QQ    590   AD=AD+8!lF   AD>EA   THEN    C 
L0SE3 : P RINT " [ DOWN ) [ BLU ) 
**    END    OF    ENTRY    **(BLK) 
12    DOWN] ":GQTO700' 
GQ    600    F=0:GOTO440 
QA    610    PRINT"tCl.R){DOmi)  (RVSj 
I  SPACE) DISPLAY   DATA    ":G 
OSUB400:IF    IN5=N5    THEN2 
20 
RJ    620    PRINT "{DOWN} {BLU) PRESS: 
tRVS) space! OFF)    TO    PAU 
SE,     [RVS) RETURN [OFF)    TO 
BREAKg4|(DOWN)" 
KS    630    GOSUB360:B=BS+AD-SA!FOR 
I=BTO    B+7:A=PEEK(I) sGOS 
UB350:GOSUB380:PRINT    SS 

CC    640    NEXT:PRINT"{RVS)"f :A=CK 

:GOSUB350:PRINT 
KH    650    F=l!AD=AD+8ilP   AD> EA   TH 

ENPRINT" (DOWN) (BLU)**    E 

ND    OF    DATA    **":GOTO220 
KC    660    GET    A5:IF    A$=R$    THEN   GO 

SUB10e0:GOTO220 
EQ    670    IF    A?=S5    THEN    F=F+1 rGOS 

UB1080 
AD   680    OKFGOTO630,660,630 
CM   690   PRINT" fDOWN) (RVS)    LOAD 

{  SPACE  j  DATA    "  :0P=1  .-GOTO 

710 
PC    700    PRINT" tDOWN) (RVS}    SAVE 


(SPACE) FILE    ":OP=0 
RX    710    IN9=N?slNPUT"iDOWN)FILE 
NAMEB4^";IN$:IF    IN$=sKS 

{ SPACE )THEN2 20 
PR    720    F=0:PRINT"(DOWN)lBLK) 

(RVSJTlOFF JAPE    OR    (RVS) 
0{OFF)ISK:    B4!"; 
FP    730    GET    A$:IF    A?="T"THEN    PR 

INT "T { DOWN } " :GOTO880 
HQ    740    IF    A5<>"D"TKEN730 
HH    750    PRINT  "D(  DOWN  )"!OPEm5, 8 

,15,  "10: ":B=EA-SA:IN5=" 

0:"+IN5:IF  OP  THEN810 
SQ  760  OPEN  l,8,a,lN5+",P,W":G 

OSUB860:IF  A  THEN220 
FJ  770  AH-INT(SA/256) :AL=SA-(A 
H*256) !PRINT#1,CHR$(AL) 

;CHR5(AH) ; 
PE  780  FOR  1=0  TO  BtPRINT#l,CH 

R5(PEEK{BS+I)); sIF  ST  T 

HEN800 
FC    790    NEXT:CL0SElsCLOSE15iG0T 

O940 
GS    800    GOSUB1060:PRINT" (DOWN) 

{BLK} ERROR   DURING    SAVE: 

64i " :GOSUB860 :GOTO220 
MA   810    OPEN    1,8,8,INS+",P,R":G 

OSUB860:IF   A   THEN220 
GE    820    GET#l,A5,B$sAD=ASC(A$+Z 

?)+256*ASC(B5+Z5):IF    AD 

<>SA    THEN    F=1:GOTO850 
RX    830    FOR    1=0    TO    B:GET#1,A5:P 

ORE    BS+I,ASC(A$+Z?) :IF( 

I<>B)AND    ST    THEN    F=2jAD 

=I:I=B 
FA   840    NEXT: IF   ST<>64    THEN   F=3 
PQ    850    CLOSE! :CLOSElS sON    ABS(F 

>0)+l   GOTO960,970 
SA   860    INPUT#1S,A,A?:IF   A  THEN 
CLOSEl tCLOSElS :GGSUB10 

60:PRINT"£RVS)ERROR:     "A 

9 
GQ    870    RETURN 
EJ    880    POKEX83,PEEK(FA+2):POKE 

187,PEEK(FA+3):POKE188, 

PEEK ( FA+4 ) : IFOP=0THEN92 

0 
HJ    890    SYS    63466:IF(PEEKC783)A 

NDDTHEN   GOSUB1060:PRIN 

T" (DOWN) (RVS)    FILE    NOT 

( SPACE )FOUND  " !GOTO690 
CS  900  AD=PEEK(829)+2  56*PEEK(8 

30)!lF  ADOSA  THEN  F=l : 

GOTO970 
SC   910    A=PEEK(831)+256*PEEK(83 

2)-l :F=F-2*(A<EA)-3*(A> 

EA) :AD=A-AD:GOTO930 
KM    920    A=SA:B=EA+1:GOSUB1010:P 

OKE780,3:SYS    63338 
JF   930   A=BS:B=BS+(EA-SA)+1;G0S 

UBi010:ON   OP   GOTO950:SY 

S    63591 
AE    940    GOSUB10a0:PRINT"(BLU) ** 
SAVE    COMPLETED    **":GOT 

0220 
XP   950    POKE147,0:SYS    63562 !lF 

(SPACE }ST>0    THEN970 
PR    960    GOSUB1080iPRINT"(BLU)** 
LOAD    COMPLETED    **":GOT 

0220 
DP    970    GOSUB1060:PRINT"(flLK) 

{RVS)ERROR    DURING    LOAD: 

iDOWN)g4|":ON    P    GOSUB93 

0 , 990 , 1000 :GOTO220 
PP    980    PRINT "INCORRECT    STARTIN 

G    ADDRESS    ( " ; :GOSUB360 : 

PRINT" )":RETURN 
GR   990    PRINT"LOAD    ENDED    AT    ";: 

AD=SA+ADsGOSUB360  sPRlNT 
05: RETURN 
FD    1000    PRINT "TRUNCATED    AT    END 
ING    ADDRESS": RETURN 


RX    1010    AH=IKT(A/256) :AL=A-(AH 

*256) :POKE193,AL:POKEl 

94, AH 
FF    1020   AH=ItJT(B/256)  :AL=B-(AH 

*256) :POKE174,AL:P0KE1 

75, AH: RETURN 
FX  1030  IF  AD<SA  OR  AD>EA  THEN 

1050 
HA  1040  IF{AD>511  AND  AD<40960 

)OR(AD> 49151  AND  AD<53 

248) THEN  GOSUB1080 :F=0 

I  RETURN 
HC    1050    GOSUB1060:PRINT"{RVS) 

(SPACE) INVALID   ADDRESS 
{DOWNHbLK]  ":F=1  :RETU 

RN 
AR    1060    POKE    SD+5, 31  SPOKE    SD+6 

,208:POKE    SD,240:POKE 

(SPACE jSD+l,4!P0KE  SD+ 

4,33 
DX  1070  FOR  S=l  TO  100:NEXT:GO 

TO1090 
PF  1080  POKE  SD+5,8:POKE  SD+6, 

240: POKE  SD,0:POKE  SD+ 

1,90!POKE  SD+4,17 
AC  1090  FOR  S=l  TO  100!NEXT:PO 

KE  SD+4,0:POKE  SD,0:PO 

KE  SD+1,0:RETURN 


Attention  Programmers 

COMPUTE!  magazine  is  currently 
looking  for  quality  articles  on 
Commodore,  Atari,  Apple, 
and  IBM  computers  (including 
the  Commodore  Amiga  and 
Atari  ST).  If  you  have  an 
interesting  home  application, 
educational  program, 
programming  utility,  or  game, 
submit  it  to  COMPUTE!,  P.O. 
Box  5406,  Greensboro,  NC 
27403.  Or  write  for  a  copy  of 
our  "Writer's  Guidelines." 


Moving? 

For  address 
changes  or 
subscription 
information, 
cail  toll  free 
1-800-727-6937 
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li/ll  ^\t  ^^^^^^^  Language  Entry  Program 


For  Apple 


Tim  Victor,  Editorial  Programmer  ■ 

To  make  it  easier  to  enter  machine  language 
programs  into  your  computer  without  ty- 
pos, COMPUTE!  is  introducing  its  "MLX" 
entry  program  for  the  Apple  11  series,  it's 
our  best  MLX  yet.  It  runs  on  the  11, 11+ ,  lie, 
and  lie,  and  with  either  DOS  33  or 
ProDOS. 


A  machine  language  (ML)  program  is 
usually  listed  as  a  long  series  of  num- 
bers. It's  hard  to  keep  your  place  and 
even  harder  to  avoid  making  mistakes  as 
you  type  in  the  listing,  since  an  incorrect 
line  looks  almost  identical  to  a  correct 
one.  To  make  error-free  entry  easier, 
COMPUTE!  generally  lists  ML  programs 
for  Commodore  and  Atari  computers  in 
a  format  designed  to  be  typed  in  with  a 
utility  called  "MLX."  The  MLX  program 
uses  a  checksum  system  to  catch  typing 
errors  almost  as  soon  as  they  happen. 

Apple  MLX  checks  your  typing  on 
a  line-by-line  basis.  It  won't  let  you 
enter  invalid  characters  or  let  you  con- 
tinue if  there's  a  mistake  in  a  line.  It 
won't  even  let  you  enter  a  line  or  digit 
out  of  sequence.  Best  of  all,  you  don't 
have  to  know  anything  about  machine 
language  to  enter  ML  programs  with 
MLX.  Apple  MLX  makes  typing  ML 
programs  almost  foolproof. 

Using  Apple  MLX 

Type  in  and  save  some  copies  of  Apple 
MLX  on  disk  (you'll  want  to  use  MLX  to 
enter  future  ML  programs  in  COM- 
PUTE!). It  doesn't  matter  whether  you 
type  it  in  on  a  disk  formatted  for  DOS 
3.3  or  ProDOS.  Programs  entered  with 
Apple  MLX,  however,  must  be  saved  to 
a  disk  formatted  with  the  same  operat- 
ing system  as  Apple  MLX  itself. 

If  you  have  an  Apple  He  or  !Ic, 
make  sure  that  the  key  marked  CAPS 
LOCK  is  in  the  down  position.  Type 
RUN.  You'll  be  asked  for  the  starting 
and  ending  addresses  of  the  ML  pro- 
gram. These  values  vary  for  each  pro- 
gram, so  they're  given  at  the  beginning 
of  the  ML  program  listing  and  in  the 
program's  accompanying  article.  Find 
them  and  type  them  in. 

The  next  thing  you'll  see  is  a  menu 
asking  you  to  select  a  function.  The  first 
is  (E)NTER  DATA.  If  you're  just  start- 
ing to  type  in  a  program,  pick  this.  Press 
the  E  key,  and  the  program  asks  for  the 
address  where  you  want  to  begin  enter- 
ing data.  Type  the  first  number  in  the 


first  line  of  the  program  listing  if  you're 
just  starting,  or  the  line  number  where 
you  left  off  if  you've  already  typed  in 
part  of  a  program.  Hit  the  RETURN  key 
and  begin  entering  the  data, 

Once  you're  in  Enter  mode,  Apple 
MLX  prints  the  address  for  each  pro- 
gram line  for  you.  You  then  type  in  all 
nine  numbers  on  that  line,  beginning 
with  the  first  two-digit  number  after  the 
colon  (:).  Each  line  represents  eight 
bytes  and  a  checksum.  When  you  enter 
a  line  and  hit  RETURN,  Apple  MLX 
recalculates  the  checksum  from  the 
eight  bytes  and  the  address.  If  you  enter 
more  or  less  than  nine  numbers,  or  the 
checksum  doesn't  exactly  match,  Apple 
MLX  erases  the  line  you  just  entered 
and  prompts  you  again  for  the  same 
line. 

Invalid  Characters  Banned 

Apple  MLX  is  fairly  flexible  about  how 
you  type  in  the  numbers.  You  can  put 
extra  spaces  between  numbers  or  leave 
the  spaces  out  entirely,  compressing  a 
line  into  1 8  keypresses.  Be  careful  not  to 
put  a  space  between  two  digits  in  the 
middle  of  a  number.  Apple  MLX  will 
read  two  single-digit  numbers  instead 
of  one  two-digit  number  (F  6  means  F 
and  6,  not  F6). 

You  can't  enter  an  invalid  charac- 
ter with  Apple  MLX,  Only  the  numerals 
0-9  and  the  letters  A-F  can  be  typed  in. 
If  you  fwess  any  other  key  (with  some 
exceptions  noted  below),  nothing  hap- 
pens. This  safeguards  against  entering 
extraneous  characters.  Even  better,  Ap- 
ple MLX  checks  for  transposed  charac- 
ters, If  you're  supposed  to  type  in  AO 
and  instead  enter  OA,  Apple  MLX  will 
catch  your  mistake. 

Apple  MLX  also  checks  to  make 
sure  you're  typing  in  the  right  line.  The 
address  (the  number  to  the  left  of  the 
colon)  is  part  of  the  checksum  recalcu- 
lation, if  you  accidentally  skip  a  line 
and  try  to  enter  incorrect  values,  Apple 
MLX  won't  let  you  continue.  Just  make 
sure  you  enter  the  correct  starting  ad- 
dress; if  you  don't,  you  won't  be  able  to 
enter  any  of  the  following  lines.  Apple 
MLX  will  stop  you. 

Editing  Features 

Apple  MLX  also  includes  some  editing 
features.  The  left-  and  right-arrow  keys 
allow  you  to  back  up  and  go  forward  on 
the  line  that  you  are  entering,  so  you 
can  retype  data.   Pressing  the  CON- 


TROL (CTRL)  and  D  keys  at  the  same 
time  (delete)  removes  the  character  un- 
der the  cursor,  shortening  the  line  by 
one  character.  Pressing  CTRL-I  (insert) 
puts  a  space  under  the  cursor  and  shifts 
the  rest  of  the  line  to  the  right,  making 
the  line  ore  character  longer.  If  the 
cursor  is  at  the  right  end  of  the  line, 
neither  CTRL-D  nor  CTRL-I  has  any 
effect. 

When  you've  entered  the  entire 
listing  (up  :o  the  ending  address  that 
you  specified  earlier),  Apple  MLX  auto- 
matically leaves  Enter  mode  and  redis- 
plays the  functions  menu.  If  you  want 
to  leave  Enter  mode  before  then,  press 
the  RETURN  key  when  Apple  MLX 
prompts  yoj  with  a  new  line  address. 
(For  instance,  you  may  want  to  leave 
Enter  mode  to  enter  a  program  listing  in 
more  than  one  sitting;  see  below.) 

Display  Data 

The  second  menu  choice,  {D)ISPLAY 
DATA,  examines  memory  and  shows 
the  contents  in  the  same  format  as  the 
program  listing.  You  can  use  it  to  check 
your  work  or  to  see  how  far  you've 
gotten.  When  you  press  D,  Apple  MLX 
asks  you  for  a  starting  address.  Type  in 
the  address  of  the  first  line  you  want  to 
see  and  hit  RETURN.  Apple  MLX  dis- 
plays program  lines  until  you  press  any 
key  or  until  it  reaches  the  end  of  the 
program. 

Save  And  Load 

Two  more  rr.enu  selections  let  you  save 
programs  on  disk  and  load  them  back 
into  the  computer.  These  are  (S)AVE 
FILE  and  (L)OAD  FILE.  When  you 
press  S  or  L,  Apple  MLX  asks  you  for 
the  filename.  The  first  time  you  save  an 
ML  program,  the  name  you  assign  will 
be  the  program's  filename  on  the  disk. 
If  you  press  L  and  specify  a  filename 
that  doesn't  exist  on  the  disk,  you'll  see 
a  disk  error  message. 

If  you're  not  sure  why  a  disk  error 
has  occurred,  check  the  drive.  Make 
sure  there's  a  formatted  disk  in  the 
drive  and  that  it  was  formatted  by  the 
same  operating  system  vou're  using  for 
Apple  MLX  (ProDOS  or  DOS  3.3).  If 
you're  trying  to  save  a  file  and  see  an 
error  message,  the  disk  might  be  full. 
Either  save  the  file  on  another  disk  or 
quit  Apple  MLX  (by  pressing  the  Q 
key),  delete  an  old  file  or  two,  then  run 
Apple  MLX  again.  Your  typing  should 
still  be  safe  m  memorv. 
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cursor,  shortening  the  line  by  one  charac- 
ter. Pressing  CTRL-I  (insert)  puts  a  space 
under  the  cursor  and  shifts  the  rest  of  the 
line  to  the  right,  niaking  the  line  one 
character  longer.  If  the  cursor  is  at  the 
right  end  of  the  line,  neither  CTRL-D  nor 
CTRL-I  has  any  effect. 

When  you've  entered  the  entire  list- 
ing (up  to  the  ending  address  that  you 
specified  earlier),  Apple  MLX  automati- 
cally leaves  Enter  mode  and  redisplays 
the  functions  menu.  If  you  want  to  leave 
Enter  mode  before  then,  press  the  RE- 
TURN key  when  Apple  MLX  prompts 
you  with  a  new  line  address.  (For  in- 
stance, you  may  want  to  leave  Enter 
mode  to  enter  a  program  listing  in  more 
than  one  sitting;  see  below.) 

Display  Data 

The  second  menu  choice,  (D)ISPLAY 
DATA,  examines  memory  and  shows  the 
contents  in  the  same  format  as  the  pro- 
gram listing.  You  can  use  it  to  check  your 
work  or  to  see  how  far  you've  gotten. 
When  you  press  D,  Apple  MLX  asks  you 
for  a  starting  address.  Tjpe  in  the  address 
of  the  first  line  you  want  to  see  and  hit 
RETURN.  Apple  MLX  displays  program 
lines  until  you  press  any  key  or  until  it 
reaches  the  end  of  the  program. 

Save  And  Load 

Two  more  menu  selections  let  you  save 
programs  on  disk  and  load  them  back 
into  the  computer.  These  are  (S)AVE 
FILE  and  (L)OAD  FILE.  When  you  press 
S  or  L,  Apple  MLX  asks  you  for  the 
filename.  TTie  first  time  you  save  an  ML 
program,  the  name  you  assign  will  be  the 
program's  filename  on  the  disk.  If  you 
press  L  and  specify  a  filename  that 
doesn't  exist  on  the  disk,  you'll  see  a  disk 
error  message. 

If  you're  not  sure  why  a  disk  error 
has  occurred,  check  the  drive.  Make  sure 
there's  a  formatted  disk  in  the  drive  and 
that  it  was  formatted  by  the  same  operat- 
ing system  you're  using  for  Apple  MLX 
(ProDOS  or  DOS  3.3).  If  you're  tr^nng  to 
save  a  file  and  see  an  error  message,  the 
disk  might  be  full.  Either  save  the  fde  on 
another  disk  or  quit  Apple  MLX  (by 
pressing  the  Q  key),  delete  an  old  file  or 
two,  then  run  Apple  MLX  again.  Your 
typing  should  still  be  safe  in  memory. 

Apple  MLX:  Machine 
Language  Entry  Program 

For  instructions  on  entering  this  program, 
please  refer  to  "COMPUTEI's  Guide  to  ryping 
in  Programs"  elsewhere  in  tWs  issue. 

8J  100  N  =  9:  HOME  :  NORMAL  :  PR 
INT  "APPLE  MLX":  POKE  34, 
2:  ONERR  GOTO  610 

CC  110  VTAB  1:  HTfiB  20:  PRINT  "S 
TART  ADDRESS";:  GOSUB  530 
:  IF  A  =  0  THEN  PRINT  CHR 
«  (7):  GOTO  110 

8C  120  S  =  A 


£3  130 


2t   140 

G5  150 


AE  S60 


?3 

170 

(IF 

1B0 

Al 

190 

30 

200 

n 

210 

a 

220 

1£ 

230 

«i 

240 

F2  250 


94  260 
CC  270 


48  280 
A6  290 


F9  300 
27  310 
72  320 
BE  330 
22  340 
Ei  350 
»  360 

7B  370 
Ei  380 

CI  390 
SB  400 

GA  410 

CI  420 
5F  430 

lA  440 


VTAB  2:  HTAB  20:  PRINT  "E 

ND  ADDRESS   " ; :  GOSUB  530 

!  IFS>  =  ADRA  =  0  THE 

N  PRINT  CHR»  C7) :  GOTO  13 

0 

E  =  A 

PRINT  :  PRINT  "CHOOSE: (E> 

NTER  DATA";:  HTAB  22:  PR! 

NT  "{DJISPLAY  DATA":  HTAB 

B:  PRINT  "(L)OAD  FILE  ( 
S)AVE  FILE  (QJUIT":  PRIN 
T 

BET  AS:  FOR  I  =  1  TO  5:  I 
F  A»  <  >  MID*  ("EDLSQ",I, 
1)  THEN  NEXT  S    GOTO  160 
ON  I  GOTO  270,220,180,200 
s  POKE  34,0:  END 
INPUT  "FILENAME:  ";A«:  IF 

A»  <  >  ""  THEN  PRINT  CHR 
S  (4)  5"BL0AD";A«;",A"{S 
GOTO  150 
INPUT  "FILENAME:  ";A«:  IF 

A*  <  >  ""  THEN  PRINT  CHR 
»  (4)  j"BSAVe";A*;",A";St  " 
,L";  (E  -  S)  +  1 
60T0  150 

BOSUB  590:  IF  B  =  0  THEN 
150 
FOR  B  =■  B  TO  e  STEP  a:L  = 

4:A  <■  B:  GOSUB  580:  PRIN 
T  A*;":  "{iL  =  2 
FOR  F  =  0  TO  7:V(F  +  1)  - 

PEEK  (B  +  F) :  NEXT  !  Q03 
UB  S60:V(9)  =  C 
FOR  F  =  1  TO  N:A  =  V<F> : 
BOSUB  580:  PRINT  A*"  "JS 
NEXT  :  PRINT  :  IF  PEEK  <4 
9152)  <  128  THEN  NEXT 
POKE  49168,0:  BDTO  150 
GOSUB  590!  IF  B  =  0  THEN 
150 

FOR  B  =  B  TO  E  STEP  8 
HTAB  1:A  =  B: L  =  4:  GOSUB 

580:  PRINT  A»;":  ";s  CAL 
L  6466BSA*  -  "":P  -  0:  GO 
SUB  330!  IF  L  =  0  THEN  15 
0 

GOSUB  470!  IF  F  <  >  N  THE 
N  PRINT  CHR»  (7) ; !  GOTO  2 
90 

IF  N  =  9  THEN  GDSUB  560: 
IF  C  <  >  V(9)  THEN  PRINT 
CHR*  (7) ! !  GOTO  290 
FOR  F  =  1  TO  0:  POKE  B  + 
F  -  1,V(F)!  NEXT  :  PRINT 
I  NEXT  :  SOTO  150 
IF  LEN  (A«)  =  33  THEN  A* 
=  0*!P  =  0:  PRINT  CHR*  (7 

)5 

L  =  LEN  (A«):0«  =  AfsO  = 

P:L«  ■=  ""s  IF  P  >  0  THEN 

L»  -  LEFT*  (A»,P) 

R«  =  "":  IF  P  <  L  -  1  THE 

N  R*  -  RIGHT*  (A*,L  -  P  - 

1> 
HTAB  7:  PRINT  L»; :  FLASH 
:  IF  P  <  L  THEN  PRINT  MID 
»  (A«,P  +  l,l>!!  NORMAL  : 

PRINT  R*i 
PRINT  "  ";:  NORMAL 
K  =  PEEK  (49152) :  IF  K  < 
128  THEN  380 

POKE  49168, 0iK  =  K  -  128 
IF  K  =  13  THEN  HTAB  7:  PR 
INT  A*;"  ";:  RETURN 
IF  K  =  32  OR  K  >  47  AND  K 

<  58  OR  K  >  64  AND  K  <  7 
1  THEN  A*  =  L*  +  CHR*  (K) 

+  R«!P  =  P  +  1 
IF  K  =  4  THEN  ft*  =  L«  +  R 
« 
IF  K  =  9  THEN  A*  =  L*  +  " 

"  +  MID*  (A*,P  +  1,1>  + 
R* 

IF  K  =  B  THEN  P  =  P  -  (P 
>  0) 


n 

510 

(5 

520 

«B 

530 

tf 

540 

93  450  IF  K  =  21  THEN  P  =  P  +  (P 

<    LJ 
It   460  GOTO  330 

37  470  F  =  1:D  =  0:  FOR  P  =  1  TO 
LEN  (A«)!C*  =  MID*  (A*,P 

,1):  IF  F  >  N  AND  C*  <  > 

"  "  THEN  RETURN 
BB  480  IF  C«  <  >  "  "  THEN  BOSUB 

520! V{F)  -  J  +  16  «  !D  = 

1)  *  V(F) :D  "  D  +  1 
5F  490  IF  D  >  0  AND  C«  =  "  "  OR 

D  =  2  THEN  D  =  0:F  =  F  + 

1 
IB  500  NEXT  :  IF  D  =  0  THEN  F  = 

F  -  1 

RETURN 

J  =  ASC  (C*):  J  ■=  J  -  48  - 
7  «  (J  >  64):  RETURN 

A  =  0:  INPUT  A»:A*  =  LEFT 

*  (A*,4):  IF  LEN  <A*)  =  0 
THEN  RETURN 

FOR  P  =  1  TO  LEN  (A«>!C* 

=  MID*  (A*,P, 1) !  IF  C*  < 

"0"  OR  C»  >  "9"  AND  C»  < 

"A"  OR  C»  >  "Z"  THEN  A  = 

0:  RETURN 
211  550  GOSUB  520! A  =  A  *  16  +  J: 

NEXT  :  RETURN 
28  560  C  =  INT  (B  /  256)  :C  =  B  - 
254  *  C  -  253  »  (C  >  127 

) !C  =  C  -  255  «  (C  >  255) 
2J  570  FOR  F=1T0B!C  =  C»2 

-  255  «  (C  >  127)  +  V<F)I 

C  =  C  -  255  «  (C  >  255) : 

NEXT  !  RETURN 
5»  580  1  =  FRE  C0):A»  =  "":  FOR 

I  -  1  TO  L!T  =  INT  (A  /  1 

6): A*  -  MID*  ("0123456789 

ABCDEF",A  -  16  «  T  +  1,1> 
+  A*: A  »  T!  NEXT  :  RETUR 

N 
IF  590  PRINT  "FROM  ADDRESS  ";:  B 

OSUB  530!  IF  S  >  A  OR  E  < 
A  OR  A  '  0  THEN  B  =  0:  R 

ETURN 
iD  600  B  =  S  +  8  »  INT  ((A  -  S) 

/  8) !  RETURN 
B4  610  PRINT  "DISK  ERROR":  GOTO 
150  @ 


All  the  programs  in 

this  issue  are 

available  on  the 

ready-to-load 

COMPUTE!  Disk. 

To  order  a  one-year 

(four-disk) 

subscription, 

call  toll  free 

1-800-727-6937 

Please  specify  which 

computer  you  are 

using. 
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Classified 


SOFTWARE 


COMMODORE:  TRY  BEFORE  VOU  BUY.  Best 
selling  games,  utilities,  educational,  +  classics 
and  new  releases.  lOO's  of  titles.  Visa/MC,  Free 
brochure.  RENT-A-DISC,  Frederick  BIdg.  #345, 
Hunt'n,  WV  25701  (304)  529-3232 

FREE  APPLE  SOFTWARE 

Over  1,000  Public  Domaisi  Programs  on  50 

diskettes.  $5  each  plus  $1  for  shipping  per  order. 

Send  SI  for  catalog,  refundable  with  order. 

C&H  ENTERPRISES 

PO  Box  29243,  Memphis,  TN  38127 

DISCOUNT  SOFTWARE  for  most  computers. 
FREE  CATALOG.  Sale:  5.25-  DSDD  Disks 
25  for  $13.95  ppd,  VVMJ  DATA  SYSTEMS-C, 
4  Butterfly  Dr.,  Hauppauge,  NY  11788 

Cheap  Software/IBM, PCjr,  Compatibles. 
5.25  or  3.5  disk.  For  catalog  of  diskettes 
available  for  education,  games,  business,  etc., 
Write:  Morning  Star  Industry,  Box  3095, 
Ann  Arbor,  MI  48106 

FREE  SOFTWARE  for  C64,  C128,  IBM  &  CPM 
send  SASE  for  info  (specify  computer)  to: 
PUBLIC  DOMAIN  USERS  GROUP 
PO  Box  1442-Al,  Orange  Park,  FL  32067 

MILLION  $  "LOTTO  BUSTER"  PROGRAM 

SCIENTIFIC.  HITS  JACKPOTS.  NO  RN/G 
$49,95  Ap  II.  Atari,  MS/DOS,  C64.  OH  res  add 
6%  s.tax.  Also:  FANTASTIC  DAILY  NUMBER 
FORECASTER!  GETS  Straight  Hits  Weekly! 
$42.95.  Both:  S79.95.  Large  SASE  gets  info, 
Z-Way,  FOB  9017-C,  Canton  OH  44711 
(216)875-2512 

More  than  200  great  ML  routines  for  64  and 
128,  ready  to  add  to  your  own  programs.  In 
COMPUTE!  Books'  MACHINE  LANGUAGE 
ROUTINES  FOR  THE  COMMODORE  64/128. 
Explanations,  uses,  commented  source  code.  585 
pages,  $18.95.  Check  vour  local  bookstore  or  call 
(800)  346-6767 

FREE  LIST:  CARTRIDGES/SOFTWARE  FOR: 
COLECO,  ATARI  2600.  5200,  7800,  NINTENDO, 
ADAM,  XL,  XE,  Intellivision:  Modem; 
414-265-5149,  24  hrs.  Villa  Video,  Box  17085, 
Milw,  W!  53217 


T1-99/4A  Software/Hardware  bargains. 
Hard-to-find  items.  Huge  selection. 
Fast  service.  Free  catalog. 
D.E.C.,  Box  690,  Hicksville,  NY  11801 

CALC  RESULT  64  -  SPREADSHEET  SOFTWARE 

C/R  64  EASY  -  Single  page  Cartridge  $25 

C/R  64  ADVANCED  -  3D  -  Cart/Disk  32  pages 

w/Help,  Graphics,  Windows  only  $45 

Text:  Applied  C/R  w/32  Examples  $10 

Call  The  Order  Line  201-445-5998  MC/V!SA 

LEARN  THE  CONSTITUTION!  FUN 
Bicentennial  educational  game  for  IBM;  535 
(req's  BASIC),  or  for  C64:  $25.  Basic  Fun- 
damentals, 3362  S  2300  E,  SLC,  UT  84109 

FREE  PUBLIC  DOMAIN  SOFTWARE  -  Request 
free  catalog  or  send  S2  for  sample  disk  & 
catalog  (refundable).  APPLE,  C64-128  (specify) 
CALOKE  IND.,  Box  18477,  KC,  MO  64133 

FREE!  PUBLIC  DOMAIN  SOFTWARE  FLYER! 
IBM  &  Compatibles  -  (MS-DOS)  Save  $$$ 
@  S3.50  per  disk!  Write  to;  AP-JP  Inc., 
Box  1155,  W.  Babylon,  NY  11704 

WE  WILL  PAY  YOU  $20  IN  COLD  HARD  CASH 
if  your  computer  can't  earn  $15,000  with 
our  business  plan.  Send  $1  (s/h)  to:  1111 
Logan  Ave.  Unit  C,  Box  106,  Winnipeg,  MB 
R3E  IRl  Canada.  Specify  computer  model! 

IBM  PUBLIC  DOMAIN  SOFTWARE  S3  PER  DISK 

Send  stamp  for  cat.  Hundreds  of  disks 
to  choose  from.  Excellent  service.  Two 
disk  sizes  now  available;  SVi'  @  $3.00 
and  3'/:''  (3)  $5.00.  Send  for  your  list. 
Now  accepting  MasterCard  and  Visa,.. 
JDX/C,  P.O.  BOX  1561,  CORONA,  CA  91718 


f$    L    O    T    T   O      U   S   fii    $$ 
fid  the  winning  nuMben  in  ill  stites 
t/idt  have  IBJJO  gnes. Ssiy  (o  run  tenu. 
Lottery  gaiss  tar  daily  picks, iOlTQ  iO, 
«  etc.lisiette  only  C-6t  or  ISn.AUoti 
3-4  Desks  far  delivery. Send  H9.95  * 
il.iO  S/H.Heu  York  readenti  add  tax. 
lo:  QUEEHS  SOFmHE  PO  Box  7271  Brand 
Central  Station  H.f.,HJ.  J0J4J-602B 


COMPUTE!  Classified  is  a  low-cost  way  to  tell  over  350,000 
microcomputer  owners  about  your  product  or  service. 

Rates:  $25  per  line,  minimum  of  four  lines.  Any  or  all  of  the  first  line  set  in  capi- 
tal letters  at  no  charge.  Add  $15  per  line  for  boldface  words,  or  $50  for  the  entire 
ad  set  in  boldface  (any  number  of  lines.)  Inquire  about  display  rates. 

Terms:  Prepayment  is  required.  Check,  money  order,  American  Express,  'Visa,  or 
MasterCard  is  accepted.  Make  checks  payable  to  COMPUTE!  Publications. 

Form;  Ads  are  subject  to  publisher's  approval  and  must  be  either  typed  or  legiblv 
printed.  One  line  equals  40  letters  and  spaces  between  words.  Please  underline' 
words  to  be  set  in  boldface. 

General  Information:  Advertisers  usine  post  office  box  numbers  in  their  ads  must 
supply  permanent  address  and  telephone  numbers.  Ad  will  appear  in  next  avail- 
able issue  after  receipt. 

Cfosing:  10th  of  the  third  month  preceding  cover  date  (e.g.,  June  issue  closes 
March  10th).  Send  order  and  remittance  to;  Harry  Blair,  Classified  Manager, 
COMPUTE!,  P.O.  Box  5406,  Greensboro,  NC  27403.  To  place  an  ad  by  phone, 
call  Harry  Blair  at  (919)  275-9809. 

Notice:  COMPUTE!  Publications  cannot  be  responsible  for  offers  or  claims  of 
advertisers,  but  will  attempt  to  screen  out  misleading  or  questionable  copy. 
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witti  our 
SPORTS 

Handicapping 
Software 

THOOOUGHKED/HARNESS  Handicapping. $29  n.  enhar>cod..M9.9& 
GC^HOUND  Handicapping. .S29  9S.  enhanced. . $49  9S  Up  In  13 
entnoi  onar/zed  ciaii.  speed,  timej.  oddi.  nock.  po*i,  Hrelcn,  & 
(InisM  poUlionj,  Pro  Fooftwil  Sv^lem  ^19  95  f'O  Saslfettxill  Sytfem  , 
549  95  Specify  disk,  lope  Applfll]  -ca.  Atari.  IBM  ?C,  COM  64y^3a.Tl. 
r3S.40  Mod  ^/4.  Mod  10C.'2CO.  Cotor  Add  iZpUi  MC;VI»  occspTnd 
rie« Info. SOFTWAAf  EXCHANGE,  P.<3.BQxi,M2CF,Vt  Bloomllfrld. MI 
49011.  (m;  Ui.7II»  Oldors:  MOO-S37.94<S7. 


T1-99/4A  QUALITY  SOFTWARE  for  Business, 
Home  and  I-ntertainment  *'  Bonus  Software 
Offer!  "  Send  for  FREE  catalog  to  MICRO-BIZ 
HAWAII,  BOX  1108,  PEARL  CITY,  HI  96782 

FOOTBALL  COMPU-SCHEDT":  1987  NFL 
SCHEDULE/Team  logs.  1986  standings/team 
logs/playoff  results.  Enter  scores  -  create  new 
standings/team  logs.  $19.95  +  $1  s/h  fCA  res 
add  tax)  College  confs  available.  IBM-PC  or 
compatible.  Other  software:  Football  Stats-alyzer, 
Sportscard  Inventory.  Free  brochures.  Cosoft 
Micro  Systems,  Dept.  CO,  26458  Mocine  Ave., 
Hayward,  CA  94544 

CANADIANS;  MAIL  ORDER  SOFTWARE  FOR 
YOU.  Titles  by  Abacus,  Activision,  Epyx  and 
more.  Low  prices,  ^vide  selection,  free  catalog. 
CAN50FT,  Dept.  G,  Box  3464,  Courtenay  BC 
V9N  5N5 


HARDWARE 


PC  CLONE  BUILDER'S  MANUAL  with  parts 
list.  Detailed  instr  for  Assembly,  Testing  & 
Troubleshooting.  Covers  all  switches,  jumpers 
&  Hard  Disk  installation:  $19.95.  Digital 
Solutions.  26  E  14th  St.  #505C,  Indpls,  IN  46202 


MISCELLANEOUS 


SAFEWARE  INSURES  COMPUTERS  against 
fire,  theft,  &  power  surges  for  as  little  as 
S39.  Call  Safeware,  The  Insurance  Agency  Inc. 
at  800/848-3469,  Columbus,  Ohio. 

PERSONAL  COMPUTER  OWNERS  CAN  EARN 
SI 000  to  $5000  monthly  selling  simple  services 
part  time.  Free  list  of  100  best  services. 
Write;  A.I.M.H.U.,  PO  Box  60369, 
San  Diego,  CA  92106-8369 

OVER  100  SPECIAL  COMPUTER  BARGAINS! 

Send  S5.95  ch/mo  for  12-issue  subscription 
of  The  Bit  Parade.  Or  send  $1  cash  for  sample. 
Mel-Mark  Software  Int.,  Inc.,  FOB  2014-P, 
Medford  Lakes,  N|  08055  (609)  654-9698 
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WIN        $ 
THE  LOTTO 

With  Your  Computer! 

Forget  random  numbers.  This  program 
for  home  computers  does  an  actual 
analiisis  of  the  past  winning  numbers. 
This  amazing  program  uilll  quickly  pro- 
vide };ou  with  all  the  data  you  need  to 
predict  which  numbers  will  likely 
come  up  In  subsequent  drawings.  All 
consistent  lottery  winners  use  some 
kind  of  system  based  on  the  post  win- 
ners. Using  the  real  power  of  your  com- 
puter gives  you  a  definite  edge.  It's 
menu  driven  and  all  you  do  is  add  the 
latest  winners  each  week  and  the  pro- 
gram does  the  rest  In  seconds.  On 
screen  or  printer  It  shows  hot  and  cold 
numbers,  frequency,  groups,  sums-of- 
digits,  odd/even,  wheels  numbers  and 
more.  No  thick  manual  to  read.  It  even 
has  a  built-in  tutorial. 
Ask  your  software  dealer  or  call  or 
write: 


SOFT-BYTE 

P.O.  Box  556  F.  Park 
Dayton.  Ohio  45405 
(513)  233-2200 


Soft 
B9T£ 


THE  LOTTO  PROGRAM  is  designed  for  ali 

6  &   7   draw   lotto  games   (up  to  49   numbsrs)^ 

DONT  PLAY  LOTTO  WITHOUT  ITI 

APPLE  &M/S  DOS  IBM   24.95 

COMMODORE  &  ATARI 21 .95 

TRS-80&MODIII,  IV 21.95 

MACINTOSH  (super  version) 29.95 

Please  add  92.00  shipping/ 
handling.  Fast  service  on 
charge  cards. 


New  Version  4.0! 

Now  with  Automatic  Entries 

And  More! 


.   .   .  And  you  get  a  C?A-designcd,  interactive 

mo^e^"  managemi?nf/accounting  system  for  home 

and  business  tiiat  can  handle  999  different 

accounts  and  24,000  transactions  a  year. 

MANAGE . . .  Cash,  checktnj,  savings,  credit  card 
accounts-  Its  Smart  Account  Reconcilef  will 
balancf  the  tim);hcst  bank  slatemcnl  quickly. 

PREPARE  &  PRINT  ...•!  different  types  of  finan- 
cial statements  (incl,  net  worth).  .1  different 
inquiry  reports,  general  ledger  and  accountant's 
trial  balance. 

PLUS  . . .  Budgeting,  finandal  data  base,  pop*up 
calculator,  graphics,  color,  tutorial ,  , ,  and  more. 

AND  ...  If  j'oti  own  a  small  business.  Money- 
Counts'  will  track  both  ynur  business  and  per* 
sonal  finances  and  report  separately  on  eacli. 

There's  no  catch .  This  is  a  fully-functional  system 

that  compares  with  products  selling  for  SW  or 

more.  Not  copy  prtrtected, 

MoneyCounts^  requires  an  IBM  PC,  'T,  AT  or 

compatible  computer  and  i  printer. 

Order  today  and  own  MoneyCounls'  for  onl>  Sift! 

[own  residents  add  4%  .sales  lax:  add  $3  shipping 

and  handling  (outside  North  America  add  51(1). 

VISA  and  MasterCard  orders  call: 

1-800-223-6925 

(in  Iowa  319;373-0224) 


Depl.  G 

6925  Surrey  Drive  NE 
Cedar  Rapids.  Iowa  52402 
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A  WORTHWHILE  INVESTMENT 


AmcD^  OrWne  Datcboiea:  Initanl  InlomxjtOT 


COMPUTE 


You  may  have  easily  spent  thousands  on  your  computer. 
Whatever  you  spent,  it  was  a  wise  and  worthwhile 
investment!  Now  mal<e  your  computer  even  more  valuable  by 
subscribing  to  Ckjmpute ! .  the  leading  magazine  oi  home, 
educational  and  recreational  computing. 

1  Year/$24  2  Years/$45  jocu 


Name  _ 
Address 
City 


_State_ 


-^P- 


DPayment  Enclosed  D  Bill  Me  Later 

For  faster  service  call:  1-800-727-6937 

For  Foreign  &  Canadian  Subscribers,  please  add  $6  (U.S.)  per  year  postage. 


BUSINESS  REPLY  MAIL 

FIRST  CLASS  PERMIT  NO.  7478  DES  MOINES,  lA 


NO  POSTAGE 
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COMPUTE! 

P.O.  Box  10955 

Des  Moines,  lA  50347-0955 
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COMPUTE!'! 

FREE  Reader  information  Service 

Use  these  cards  to  request  FREE  information  about  the  products  ad- 
vertised in  this  issue,  Ciearly  print  or  type  your  full  name  and  address, 
Oniy  one  card  should  be  used  per  person.  Circle  the  numbers  that 
correspond  to  the  key  number  appearing  in  the  advertisers  index. 

Send  in  the  card  and  the  advertisers  wiii  receive  your  inquiry.  Al- 
though every  effort  is  made  to  insure  that  oniy  advertisers  v^/ishing  to 
provide  product  information  have  reader  service  numbers,  compute! 
cannot  be  responsible  if  advertisers  do  not  provide  literature  to 
readers. 

Please  use  these  cards  only  for  subscribing  or  for  requesting  product 
information.  Editorial  and  customer  service  inquiries  should  be  ad- 
dressed to:  COMPUTE!,  P,0,  Box  5406,  Greensboro,  NC  27403.  Check 
the  expiration  date  on  the  card  to  insure  proper  handling. 

Use  these  cords  and  this  address  only  for  COMPUTEl's  Reader  Infor- 
mation Service.  Do  not  send  with  payment  in  any  form. 
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Cirde  iOl  for  a  one  year  new  U.S.  subscription  to  COMPUTE!:  you  will  be  billed  for  S24. 


Please  let  us  know.  Do  you      ' 
own:  plan  to  buy: 


n    Apple 

270 
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279 

D    other . 


D 

271 

D 

273 

D 

275 

D 

277 

D 

279 


(Specify  model)    2a  1 
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Limit  one  card  per  person. 
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Country 
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Please  Include  ZIP  Code 


Expiration  Date  11/30/87 
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SUBSCRIBE 

TO 

COMPUTE! 

n  $24.00  One  Year  US  Subscription 
a  $45.00  Two  Year  US  Subscription 


For  fastest  Service, 

Call  Our  Toil-Free 

US  Order  Line 

800-727-6937 
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State 

Zip 
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D  American  Express 
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chanQG  at  any  time  Outside  ttie  U.S.A  please  add  56  tor  eacti  subscrlotlon 
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OPDEB 


The  standard 
equipment  on  a  Laser  128 
is  optional  on  most 
computers 


h  ■ 


Take  a 

look  at  the 

Laser  128  Apple-compatible 

computer,  and  beginning 
with  its  built-in  disk  drive  and 
128K  RAM  of  memory,  you  start 
to  feel  that  this  machine  was 
designed  with  you  in  mind.  The 
Laser  128  is  ready-to-run  - 
plug  it  in,  insert  your  program 
and  go.  Everything  is  built-in 
for  you. 


The  Laser  128 
has  built-in 
interfaces  for  all 
your  peripherals,  including 
serial  and  parallel  printer 
interfaces,  modem  and 
mouse  interfaces,  a  game 
port  and  you  can  hookup  a 


mntffitnnarasBS 


It's  expandable,  too. 

The  Laser  128  includes  an 
expansion  slot  to  let  the 
computer  grow  with  your 
increasing  demands. 


iiujiiiiimiuiiiii 


color  or  monochrome  monitor, 
or  even  a  TV  to  it.  Only  the 
Laser  has  this  much  built-in 
as  standard  equipment. 


Choose  from 

the  largest  software 

library  in  the  world.  The 

Laser  128  runs  Apple  He 
and  He  software,  which 
makes  it  nice  for  you 
and  your  family 
because  children  • 

can  use  the  same 
programs  at  home 
that  they  learn  on  in 
school.  The  Laser 
128  is  a  computer  for 
the  whole  family 


fl//LASER  128 


AppFe,  Apple  ite  and  ApplQ  //c  ats 
iftgiSlered  Irademarks  of  Appl^ 
Compuler.  Inc      CommoflOTB  J5  a 
mgisterod  trademark  of  Commoflora 
BusJJiass  Machines.  Inc.     c  19S7 


The  Laser  128  is  priced 
to  keep  money  in  your 
pocket.  The  Laser  is 
about  half  the 
price  of  an       ^^.  ^ 
Apple,  and  is 
even  less  than 
acomparably       v  \\  ,^,.  ^ 
equipped  \V 

Commodore  unit 
You  get  a  lot  of  computer 
for  a  little  money 

Look  for  the  attractive 
Laser  packaging  at  a  store 
near  you.  For  more  infor- 
mation on  the  Laser  128 
and  the  name  of 
your  nearest 
dealer,  contact 
Video  Technology 
Computers,  Inc., 
400  Anthony  Trail, 
Northbrook,  IL  60062, 
or  call  (312)  272-6760 


Manufactured  by 

VIDEO  TECHNOLOGY  COMPUTERS,  INC. 


MAKING  COMPUTERS  AFFORDABLE 


